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1. ABSTRACT 


E. THAT THE K OR ADDRESS 
CIRCUITRY OPERATES PROPERLY. AND THAT THE DATA STORAGE AND 
RETRIEVAL CAPABILITIES ARE FUNCTIONING. 


2. REQUIREMENTS 


2.1 EQUIPMENT 
+ 11 PROCESSOR 
6K MEMORY 


TELETYPE 

PROGRAM LOADING DEVICE 

KM11-L OR KW11-P (THE KW11-P 1S REQUIRED FOR THE TIMING TESTS) 
RH11 OR RH70 WITH 1 - 8 RPO4/5/6 DISK DRIVES 


2.2 PRELIMINARY PROGRAMS 


RPO4/5/6 A a a CONTROLLER TEST 
PART 1 (MAINDEC-11-D2R JG) 
PART 3 (MA INDEC-11-02R JH) 


ettatete FUNCTIONAL CONTROLLER TEST 
ART 1 (MAINDEC-11-OZRJ1) 
PART 2 (MAINDEC-11-O2ZR JJ) 


2.3 MEDIA 


THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED 
DISK PACK. THE PACK MAY BE FORMATTED IN EITHER 16-BiT OR 18-BiT 
MODE. DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 
NS ed TEST A MIXTURE OF ORIVES WITH BOTH 16 AND 18 BIT MODE 


3. LOADING PROCEDURE 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 

OR IT MAY BE LOADED FROM THE APPROPRIATE ‘XXDP’ MEDIA USING THE 
ASSOCAI TED — THE PROGRAM MAY BE INCLUDED IN AN *XXDP" CHA 

IF THE PROGRAM 1S BEING RUN ON A PROCESSOR WITH 16K, THE 

apg WILL NOT BE PRESERVED. THE PROGRAM MUST BE RUN ON A SY YSTEM 

WITH 20K OR MORE TO PRESERVE THE ‘XXDP’ LOADER. THE ‘ABSOLUTE’ LOADER 
WILL BE PRESERVED IN A 16K SYSTEM. HOWEVER. 
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4. STARTING PROCEDURE 


4.1 STARTING ADDRESSES 


200 NORMAL STARTING ADDRESS 

204 SELECT OPERATING PARAMETERS 
210 SELECT RH11-RH70 ADDRESSES 
214 COMBINATION OF 204% AND 210 


NOTE: STARTING RODRESSES 210 AND 214 ARE AVAILABLE WHEN’ THE 
PROGRAM IS INITIALLY STARTED; THESE STARTING ADDRESSES ARE 
TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 


4.2 OPERATOR ACTION 


LORD PROGRAM INTO MEMORY (SEE SECTION 3.) 

LOAD A FORMATTED PACK INTO DRIVE(S) TO BE TESTED 
BRING DRIVE(S) TO ONLINE STATE. WRITE ENABLED. 
AND LOCKED ON PORT. 


LORD ADORESS 200. 
SET SWITCHES (SEE SECTION 5. ) 
PRESS START. 

THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO 
THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THIS TYPEOUT. DO NOT 
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES: INSTEAD 
TYPE A "CONTROL C* ON THE KEYBOARD TO RETURN THE PROGRAM TO 
COMMAND ENTRY MODE. 


4.3 PROGRAM ACTION 


IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
CONSTRUCTIONS HAVE BEEN ADOPTED. 


NOTE1: IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
NOT TYPED BY THE USER. 


NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY 
<CR> AND WILL BE ECHOED AS A ‘CARRIAGE RETURN-LINE FEED’. 


«. ><CR> PERIOD 


a arn TERMINATOR: WHEN TYPED AT THE 

END OF A LINE (LEGAL ON ALL LINES) IT TELLS 
THE PARAMETER STRING INTERPRETER (PS!) THIS IS 
HE ENO OF CHANGES TO THE CURRENT PARAMETER 


NOUS wr 


«.. 2<CR> PERIOD PERIOD 
THE ‘PERIOD PERIOD’ TERMINATOR 1S TYPED TO INDICATE 
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
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4.3.2 


THE START OF TEST EXECUTION. 
<, ><CR> COMMA 


THE COMMA 1S USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
AND TEST NUMBERS. 


</> SLASH 
A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 
NUMBER. THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER 
MODIFICATION. 

« Ww) CONTROL -U 
DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE “CONTROL KEY” 
(CTRL) AND THEN STRIKING THE “U". 

«> RUBOUT 
DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE “RUBOUT” KEY. WHICH WILL 


BE ECHOED BY A BACKSLASH ( ) FOLLOWED BY THE 
CHARACTER DELETED. 


CONTROL SWITCH SELECTION 

STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
WITH SH<O7>=1 WILL RESULT IN ENTERING THE “CONTROL SWITCH 
SETTI . THUS. ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF “C. SHR”. 

CONTROL SWITCH SELECTION EXAMPLES: 

EXAMPLE #1 


SET SW<C7>=0 
C. SWR=000000 / 400.. 


EXAMPLE #2 
SET SW<07>=0 


RH11 - RH70 ADORESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RPCS1), 
pt ag DEFAULT AND PRIORITY LEVEL OF THE RH11-RH70. 


iF 
(TIMES OUT) WHEN ADDRESSED. AN ERROR iS REPORTED. 
AFTER THE ERROR 1S REPORTED ONE OF TWO COURSES OF ACTION 
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4.3.3 


WILL BE TAKEN: 

1. IF THERE 1S A MONITOR -- RETURN TO THE MONITOR 

2. If THERE ISN'T A MONITOR -- ASK FOR NEW ADDRESSES 
STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
owen THE ESS OF THE RH11 OR RH70 AND THE VECTOR 


THE PROGRAM ALLOWS THE ADDRESSES TO BE CHANGED ON WHEN THE 
PROGRAM IS FIRST STARTED. STARTINS ADDRESSES 210(8) AND 214(8) 
ARE TREATED AS ADDRESSES 200(8) OR 204(8) RESPECTIVELY. 
ADORESS SELECTION EXAMPLES 
EXAMPLE #1 

RPCS1=176700 / 177200. 
EXAMPLE #2 

RPCS1=176700 / das 

RHVEC=254 / 260<CR> 

RHPRIO=5 / 6. 
EXAMPLE #3 


RPCS1=176700<CR> 
RHVEC=254 / 260. 


EXAMPLE #4 


RH11/RPOY FAILED TO RESPOND TO ADDRESSING 
RPCS1 af a! 


176300 
RPcsi2176300 7 / 176700. 
EXAMPLE #5 
tt ttle / 1776 67 6300<CR> 
RHVEC=254<CR> 
RHPR 1025<CR> 
RPCS1=176300. 
DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED. THE TESTS TO. BE EXECUTED. 
AND THE PARAMETERS TO USE. 


EACH TEST CONTAINS TWO SETS OF CYLINDER LIMIT PARAMETERS. PARAMETERS 
"LC’ AND ‘FC’ ARE USED BY RPO4/S DRIVES AND PARAMETERS ‘LC'’ AND 
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"FC’* ARE USED BY RPOG ORIVES. THE PROGRAM DETERMINES WHICH DRIVE 
1S ~ Sa H ag ~~ SELECTS THE CORRECT SET OF oa teh tan 


VAL T A 
CONTAINS BOTH RPO4/S AND RPOG DRIVES. THE OPERATOR MUST CHANGE 
BOTH SETS OF CYLINDER LIMITS IF THE TESTS ARE TO BE MODIFIED FOR 
ALL DRIVES TESTED. 

4. 3.3.1 DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 


“R" REPEATS (ITERATIONS) 
ay FIRST CYLINDER ADORESS FOR RPO4/S5'S 


SE@ 0007 


NC ACK 
“*s° FIRST SECTOR wey ty 
“LS* LAST SECTOk ADDRES 
“PAT” PATTERN (USED FOR sDaTA TEST) 
“WOX" WORD OF PATTERN O WHERE X 1S 1 TO 16 


"Ss" ALL SEEK TESTS (TESTS 0 - 10) 
"tT" ALL TIMING TESTS (TESTS 12 - 15) 
"A" ALL ADDRESS Tests. (TESTS 16 - 17) 
z"D" THE DATA TEST (TEST 20) 

s"E" THE EXERCISER (TEST 21) 


% USED BY THE OPERATOR TO SELECT TEST GROUPS 
NOTE: ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WOX) SELECTION “PAT” WILL BE SELECTED 
BY A BIT (1.E. OO1000(8)=PATTERN 9) AND “WOX" WILL BE IN OCTAL. 


SPECIAL CASES OF CONTROL CHARACTERS 


1F <..> 1S TYPED WHILE a TEST IS OPEN FOR MODIFICATION 
(</>) AND OTHER TESTS IN THE “TEST COMMAND” STR/ 
ARE TO BE MODIFIED. THE NRENAIN ING TESTS WILL BE UNCHANGED. 


HE wr 1S STARTED FROM LOCATION 200 OR 210. TESTS 0-10, 

WILL BE RUN USING ALL AVAILABLE. ONLINE DRIVES. IF THE OPERATOR 
TO SELECT. THE DRIVES TO BE TESTED. THE TESTS TO BE PERFORMED. 
THE PARAMETERS TO BE USED. THE CONVERSATION MODE MAY BE ENTERED 
TYPING A bo pte C* OR BY STARTING THE PROGRAM FROM EITHER 










THE PROGRAM WILL THEN RESPOND WITH: 
OR IVE(S)= 
THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 
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DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE 
THE PARAMETERS (INITIAL CYLINDER ADDRESS. FINAL CYLINDER ADDRESS. ETC. ). 
THE USER WOULD TYPE ‘3<CR>* WHICH SAYS ‘THIS 1S THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 

THE TRANSACTION APPEARS 9S FOLLONS: 


OR 1 VEC S)=3<CR> 
TEST= 





THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE. 
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7<.> (THE ‘COMMA’ 
SEPARATES ENTRIES). 11¢.><CR> ("PERIOD’ “CARRIAGE RETURN' - 

END OF CHANGES. START TEST EXECUTION ) 


1T NOW LOOKS LIKE THIS 


OR IVECS)=3<CR> 
TEST=2-7. 11. <CR> 


IN THE NEXT EXAMPLE. IT 1S ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11. MODIFYING THE PARAMETERS 
FOR TESTS 3 AND 10. 
THE TRANSACTION WOULD BE AS FOLLOWS: 

DR IVECS)=4<CR> 

TEST= 
THE OPERATOR NOW ENTERS THE TEST NUMBERS THE TRANSACTION IS 
GIVEN BELOW: 


DR 1 VE(S)=4<CR> 
TEST=1, 374-7, 10/711<CR> 


NOTICE THIS SAYS SELECT TEST 1. CONTINUE<.>; SELECT TEST 3. OPEN</); 
SELECT TESTS 4-7. CONTINUE<.>; SELECT TEST 10. OPEN</>; SELECT TEST 
11. END OF INPUT <. >. 


THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS WILL NOT BE ALTERED. 

(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


DR 1 VEC S)=4<CR> 
TEST=1, 374-7, 10/711<CR> 
TEST 3 


R=X / +WHERE X IS ITERATION 
THE NEW VALUE FOR ‘'R' MAY BE ENTERED. TERMINATING THE ENTRY WITH 
A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST: TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


DR 1 VE(S)=4<CR> 
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TEST=1, 374-7, 10/11<CR> 
TEST 3 


$s 
R=1 / <CR> +D0 NOT ALTER-BUT CONTINUE 
FC=N / ;WHERE ‘"N’ IS FIRST CYLINDER ADDRESS 


1F THE OPERATOR DOES NOT WISH TO CHANGE ‘FC’. THE FOLLOWING OCCURS: 


OR IVE (S)=4<CR> 
TEST 3 


R=1 / <CR> D0 NOT ALTER THIS LINE BUT CONTINUE 
+e Fe yo DO NOT ALTER THIS LINE BUT CONTINUE 
= 


THE PROGRAM RESPONDS WITH THE PREVIOUSL 
wee ADORESS IN THIS CASE USING 410 et ween . _THIS IS ) 
OPENED. TO CHANGE THE UE T NEW VALUE 1S TYPED 
FOLLOWED BY A ‘PERIOD’ TERMINATOR ». 


THE TOTAL TRANSACTION AND RESPONSE: 


DR 1 VEC S)=4<CR> 
TEST=1, 344-7, 10711<CR> 
TEST 3 


R=1 7 <CR> 

FC=0 7 <CR> 

LC= 410 7 20. <CR> 
TEST 10 

R=1 7 


THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE 
PROGRAM 1S WAITING FOR CHANGES TO TEST 10'S PARAMETERS. 


OR 1 VE(S)=4<CR> 
TEST 3 


R=1 7 <CR> 

FC=0 7 <CR> 

LC= 410 / 20. <CR> 
TEST 10 
R=1 7 10. <CRD 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A ‘PERIOD’ ‘CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


OR IVE(S)= 
SINCE THE USER DID NOT oe THE CONVERSATION MO 


z 
: 


Y 
<,><CR) WILL CAUSE THE TEST MESSAGE TO BE 
CHANGES CAN BE MADE. HOWEVER. AT SOME POIN 
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THE PROGRAM. A ‘PERIOD PERIOD’ MUST BE TYPED. 


F A SINGLE ‘PERIOD A ime WHILE DRIVE OR TEST ee | leis 
PROGRAM WILL EXIT TEST PARAMETER 


ENTERED. THE PROGRAM W 


PERIOD’ MUST BE TYPED BEFORE T 
CHANGE MODE TO GO TO EXECUTION. 


EXAMPLE #1 


DR IVE=4. <CR> 


EXAMPLE #2 


DR | VE=0<CR> 
TEST=1-5. <CR> 


EXAMPLE #3 


DR | VE=2<CR> 
TEST=1-5, 6/7/710/<CR> 
TEST .. 


R=1 7 <CR> 
reso. / 10. <CR> 


TEST 7 
R=1 / yt 
FC=0 7 <CR 
Lc=410 / 50... <CR> 


EXAMPLE #4 


DR | VE=0<CR> 
TEST=S.€. <CR> 


EXAMPLE #5 


DR 1 VE=1<CR> 
TEST=S/0<CR> 
TEST O 


ST 
R=10 7 <CR> 
FC=0 7 10.. <CR> 


+SELECT DRIVE &4, 


bode tia pious 10N IMMEDIA 


4. 3.3.2 DRIVE AND PARAMETER SELECTION EXAMPLES 


TERMINATE AND 


+BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
+ PARAMETERS 


+SELECT DRIVE #0 AND MAKE CHANGES “." 


RUN TEST 1 


TO TEST 6 


Mig heme, 
OR C 


THRU 5 ONLY. USE DEFAULT 
PARAMETERS AND TERMINATE AND EXECUTE. “ 


CHANGES "," 
Yr: DEFAULT PARAMETERS. 


4 ITERATIONS. MOVE TO NEXT PARAMETER 


NOT CHANGE 


+ TEST 10 1S STILL PENDING AND WILL 
;RETAIN ITS PRESENT PARAMETERS. 


+ SELECT DRIVE #0 AND MAKE CHANGES 
;RUN ALL SEEK TESTS AND THE EXERCISER 


‘ 
; 
’ 
; 
; 


;RUN AL 
THE DA 
io in 


! 
E 
T 


LL 
TA 
TH 
F 
ART 


OPEN 


HANGE S 
AND MOVE TO NEXT PARAMETER 
;SET ‘FC’ ens ADDRESS TO 10. END CHANGES 


‘FC’ CYLINDER gore Panes CONT | NUE 


SEEK TESTS (OPEN FOR CHANGES) AND 
TEST (WITH DEFAULT PARAMETERS). 


10 | TERATIONS 


IRST CYLINDER ADDRESS 


EXECUTION 
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EXAMPLE #6 


DR 1 VE=1<CR> 
TEST=S/<CR> 
TEST 


0 
R=10 / 100. <CR> 
TEST 
R=100 / 1000. <CR> 
TEST 2 
; R=1 / 10<CR> 
FC=0 / SO<CR> 
} LC=410 7 51. <CR> 
ST 
R=1. <CR> 
T 4 
R=1.. <CR> 
EXAMPLE #7 


DR 1 VE=1<CR> 
TEST=D/<CR> 
TEST 


20 
R=1 / 1000<CR> 
FC=0 7 10<CR> 
LC=410 / 10<CR> 
FC'=0 / <CR> 
LC*=814 7 = 


A 
$ 
‘“ 
Oo 
A 
im 
v 
* 


LS=22 / 4<CR> 
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TESTS 1 - 10 WILL RETAIN THEIR PREVIOUSLY 
: ASSIGNED PARAMETERS. 


OPEN THE SEEK TESTS (TESTS 0-10) 

+ CHANGE TO 100 ITERATIONS. TO TO THE NEXT TEST 

+ CHANGE 'R' TO 1000 ITERATIONS. MOVE TO NEXT TEST 
+CHANGE 'R* TO 10 ITERATIONS. 1"? TO NEXT PARAMETER 
CHANGE ‘FC’ TO 50, GO TO NEXT PARAMETER 

+ CHANGE 'LC' TO 51, GO TO THE NEXT TEST 

+MOVE TO NEXT TEST 


;USE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION 


+SELECT AND OPEN THE DATA TEST 


+D0 1000 ITERATION OF TEST PATTERN 
7#8 ON CYLINDER 10, TRACK 2, SECTOR 4 


;RPO6 PARAMETER 


_ 7 RPO6 PARAMETER 


<CR> 
PAT=177777 / 4O0.. <CR> ;RUN WITH PATTERN &8 


EXAMPLE #8 


OR 1 VE=1<CR> 
TEST=0/<CR> 
TEST 20 
R=1000 7 <CR> 
FC=10 / <CR> 
LC=10 / <CR> 
FC'sO0 7 <CR> 
LC'=sB814 / <CR> 


L%=2 7°<CR> 
iTet 7 <CR> 
Sey 7 <CR> 


+USE THE SAME PARAMETERS AS IN EXAMPLE 
;#7, BUT ALSO SPECIFY A DATA PATTERN (PAT #0). 
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LS=4 7 <CR> 
PAT=000400 / 401<CR> >; RUN WITH PATTERNS 8&8 #0 (O=OPERATOR INPUT) 
WO1=165555 / 125252<CR> ; FIRST WORD OF PATTERN O 
WO2=133333 / 52525... <CR> >; SECOND WORD OF PATTERN 0 
3%.) START EXECUTION 


EXAMPLE &9 


DR I VE=0, 1. 4<CR> + TEST DRIVES 0.1. AND 4 IN SEQUENCE 
TEST=0-5/<CR> + CHANGE TEST 5 
TEST O 

R=10 / <CR> 

FC=0 7 <CR> 

LC=410 7 1<CR> + CHANGE LAST CYLINDER FROM 410 TO 1 

FC'=0 7 <CR> 

LC'=814 / 2..<CR>  -;CHANGE THE LAST CYLINDER FOR ALL RPO6'S TO 

+2. START PROGRAM EXECUTION. 


SWITCH SETTINGS 


OPERATIONAL SWITCH SETTINGS 


WITH SW<15: 0>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST. 
THE SWITCH SETTINGS ARE: 


SW<15>=1... HALT ON ERROR 


20) 
AD AND SOFTWARE fiat A (TEST 20) 
OMPARES (TEST 
WRITE CHECK ERROR (TEST 20) 


A SWITCHLESS PROCESSOR (1.E. AN 11734) 
WE HAROWARE SWITCH “wea * BR) 


= 
& 8 
x 
=m 
mo 


PO4/5/6 INTERRUPT. THE 
AN OCTAL NUMBER IN RESPONSE 


az2mso 


SEQ 0012 
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TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


; "SWR = NNNNNN NEW =" 
EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE 


ENTERED. LEADING ZEROS ARE NOT REQUIRED.. ‘RUBOUT' AND 
“CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


PROCESSORS WITH oe SWITCH a toaa a THE ‘SOFTWARE’ SWITCH 
0. THE PROGRAM FINOS ALL 16 SWITCHES IN THE 
ITION, ALL Sit TCH REGISTER REFERENCES WILL BE TO THE 
me FTUPRE REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 


5.2 CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 
TO ENTER THE CONTROL SWITCH SETTING MODE PLACE SW<07>=1 
BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT { 
WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 
(C. SHR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT 
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS. TWO PERIODS (..) 
AND A CARRIAGE RETURN. 
7 THE C. SMR SETTINGS ARE: 
C. SHR<15)=0... URITE PACK BEFORE TESTING (TEST16) 
_. UNMIBIT WRITE PACK BEFORE TESTING (TEST16) 
RCA) =0 _.NO STALL BETWEEN ORIVE FUNCTIONS 
1... STALL AFTER EVERY ORIVE FUNCTION 
- SRCA3D=O. || USE SPECIFIC STALL TIMES 
1... USE RANDOM STALL 
sinc12)0 ‘Ss 
sin co8)=0 a 
Sue<o7>20.”” HERDER AND DATA COMMANDS IN TESTS 0-6 
1... EK COMMANDS IN TESTS 0-6 
SHR<O6)=0.. cE 
Sun c05) 20. 


“sun<o0e0. 
‘21... OPERATE IN 20 SECTOR (18 BIT) MODE 


THE DEFAULT CONDITION OF C. SWR<15: 00>=0. 
REFER TO 4.3.1 FOR C. SWR SELECTION 


nA nananananana 
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6.1 


6.2 
6. 2.1 


6.2.2 


THERE ARE ANUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM. 
WHEN AN ERROR 1S ENCOUNTERED. THE CALL TO THE ERROR ROUTINE 
1S MADE AND IF SW<13>_ 1S NOT SET. AN ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 

1 

z. 

3 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


THESE ERRORS WILL BE DETECTED BY THE pg Ae pe OR I VER. 
THERE ARE TWO CLASSES OF DRIVER ERRORS; THOSE THA 


THe 
INFORMATION TO BE RETURNED TO A “DATA aoe tat BLOCK" 
(OP6) AND THOSE THAT CAN THE FIRST CLASS WILL BE 
REPORTED BY ERROR CALLS (EMT'S) 1-5 WITHIN THE OR | VER. 
THE SECOND CLASS WILL PASS THE ERROR CODES TO THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB. 
NON-FATAL ERRORS 
THESE ERRORS WILL BE DUE TO “DISK" OR “DATA” FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 
FATAL ERRORS 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS. THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


ERROR RECOVERY 

PRETEST ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW OGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 


NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 
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6.2.3 FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM 


a. RESTRICTIONS 
THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 BIT MODE OR IN 18 
BIT MODE DEPENDING ON THE SETTING OF ‘S.SWR<OO>'. IF ‘C. SWR<O0>' 
1S GO. ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE: IF ‘C. SWR<O0> 
1S 1, ALL OF THE DRIVES WILL BE TESTED IN 18 BIT MODE. THE PROGRAM 
HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEN. 


ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE 
BEFORE THE PROG.AM IS STARTED. PROPERLY FORMATTED PACKS MUST BE MOUNTED 
VES WHICH WILL BE TESTED. THE PROGRAM 


ON THE ORI 
PROPERLY on PACK. THE FORMAT OF THE PACK IS NOT ALTERED 
BY THE PROGRAM 


8. MISCELLANEOUS 


8.1 EXECUTION TIME 
THE PROGRAM REQUIRES APPROXIMATELY 15 MINUTES TO MAKE ONE PASS WITH 
RPO4/S DRIVES AND APPROXIMATELY 16.5 MINUTES TO A PASS WITH RPO6 
DRIVES. THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-10, 12-20) 
AND DEFAULT TEST PARAMETERS. 

8.2 STACK POINTER 
THE STACK POINTER IS INITIALLY SET TO 1100. 

8.3 TIMING TESTS (TESTS 12-15) PRINTOUTS 


AT THE ee OF EACH OF THE TIMING TESTS THE TIME OF THE 
E THE AVERAGE OF AL 


SAME LINE AS THE MAXIMUM 
TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
ME AVERAGE. 


NOTE: ay PROGRAM Bae FOR 2 “ite Eh yee BETWEEN SEEK ORDERS. 
THIS STALL TIME 1S NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
THE 2 MILLISECOND STALL BETWEEN SEK ORDERS IS SPECIFIED BY 
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8.3.1 


8. 3.2. 


THE RPOY VENDOR. THE a TIMES 
PRE POSITIONER og TIMES ONL 


OF EFFECTIVE SEEK TIME. 
TIMING TOLERANCES 


1. TEST 12 -- ROTATIONAL SPEED TIMES — 


60 HZ 

MINIMUM=16340 US 
MAX IMUM=17000 US 
NOM INAL=16670 US 


50 HZ 

MINIMUM=16250 US 
MAX IMUM=17090 US 
NOMINAL =16670 US 


2. TEST 13 -- ONE CYLINDER SEEK TIMES 


MAX iIMUM=10000 US 
NOMINAL =7000 US 


3. TEST 14 -- ACCESS TIME MEASUREMENT 


MAX IMUM=30000 US 
NOMINAL=28000 US 


4. TEST 15 -- MAXIMUM SEEK TIMES 


MAX IMUM=52000 US 
NOMINAL =50000 US 


TIMING TESTS PRINTOUT EXAMPLES 


EXAMPLE #1 


ROTATIONAL SPEED TIMES 
16670 US 


MAX=16690 US 
AVG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 

3% FORWARD 

MIN=z§350 US 

MAX26920 US 

AVG=6550 US 409 SEEKS TIMED 
3% REVERSE 

MIN25140 US 

MAX=§960 US 

AVG=5430 US 410 SEEKS TIMED 


ACCESS TIME MEASUREMENTS 
% FORWARD 


SP 
Y 


ECIFIED FOR THE RPOY 
AND ARE NOT A MEASUREMENT 
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MIN=27770 US 
=28640 US 
AVG=28230 US 128 SEEKS 
3 REVERSE 
MiIN=27990 US 
MAX=28550 US 
AVG=28220 US i128 SEEKS 
MAXIMUM SEEK TIMES 
3 FORWARD 
MiN=49990 US 
MAX=51980 US 
AVG=51010 US 128 SEEKS 
& REVERSE 
MiN=48120 US 
X= us 
AVG=49340 US 128 SEEKS 


EXAMPLE #2 


crpaeboeay SPEED TIMES 
6670 US 
HAX= 16690 


MACY11 30A(1052) 


TIMED 


TIMED 


TIMED 


TIMED 


US 
AVG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 
g by B 
MIN=5470 U 


E 2 
27- JUL-78 


HAX= 10940. us 3 ABOVE THE MAXIMUM OF 10000 US 
AVG=5830 US 409 SEEKS TIMED 


% REVERSE 
MIN=5040 US 
MAX=59 


70 US 
AVG=5330 US 410 SEEKS TIMED 


ACCESS TIME MEASURMENTS 
WAR D 


MAX=31620 US 73 ABOVE THE MAXIMUM OF 30000 US 


AVG=30320 US 128 SEEKS 


TIMED 


MAX=31230 US 128 ABOVE THE MAXIMUM OF 30000 US 
AVG=30800 US 


128 SEEKS 
MAXIMUM SEEK TIMES 
3 FORWARD 
MIN=53610 US 
MAX=54240 US 
AVG=64020 US 128 SEEKS 


MAXs US 
AVG=52210 US 128 SEEKS 


TIMED 


TIMED 


TIMED 


128 ABOVE THE MAXIMUM OF 52000 US 


128 ABOVE THE MAXIMUM OF 52000 US 
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8.4 END OF TEST 


WITH ALL SWITCHES ON A “O" AN “END OF PASS" MESSAGE WILL BE 
TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE “END OF TEST" 
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. 


9. PROGRAM DESCRIPTION 


THIS PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL. 

TESTS O-7 & 11 WILL READ THE CYLINDER. TRACK, AND SECTOR INFORMATION 
FROM THE HEADER. USING A “READ HEADER AND DATA” COMMAND. AND 

THEN CHECK THE INFORMATION FOR VALIDITY. THUS. INSURING 


THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE ACCESS TINE. 
HE ARE AL HE 


IMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN T 
TOLERANCES ALLOWED 16 AND 17 E OR AND 
ADORESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES 


AND RETR 
+ Ay 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO 


THE PROGRAM WILL START BY fon veer in ITSELF AND oe ae ALL 


L OF THE ORIVE STEO. ONE PASS THR TEST 
SF OUENCE (TESTS ae Bg WILL BE PERFORMED ON EACH DRIVE BEFORE 
MOVING TO THE NEXT DRIVE IN SEQUENCE. ORIVE TO BE 

rere WILL BE etry AT THE BEGINNING OF EACH PASS. AN “END 

OF P ane MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS. 
oeiure AN “END OF Test" MESSAGE WILL BE TYPED AFTER TESTING ALL 


REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS 
OF EACH TEST. ' 


9.1 TEST O - RECAL/SEEK TEST 
THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “LC”. AT 
THE COMPLETION OF BOTH COMMANDS. STATUS IND CAT IONS ARE 
CHECKED TO ENSURE NO ERRORS OCCURRED. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


z ° 200 
LC ° 410 
LC’ ° 814 
FT ° 0 
FS ° 0 



















G 2 
CZRJAC RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 23 
CZ2R JAC. P11 27-JUL-78 09: 18 SEQ 0019 


9.2 TEST 1 - SEEK/SEEK TEST 
THIS TEST WikL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO "LC", “LT”, “LS” FOLLOWED BY A REVERSE SEEK CYCLE TO 
“FC”, teres "FS". AT THE COMPLETION OF EACH SEEK. THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
100 
0 
128 
0 
256 


ia) 
eC eg eaegesaate & 4 


9.3 TEST 2 - INCREMENTAL SEEK TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER ADORESS FROM "FC" TO “LC" BY THE INCREMENT "IC". 
WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

"LC" REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL “NC” AND DECREMENTING BY “IC” 

UNTIL “NC" 1S LESS THAN "FC". AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


i 
tm) 
Teen 2a 
co 
—s 
oo-f£o0o00-— 


9.4 TEST 3 - STEPPING SEEK TEST 
THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0.1.2.4, 


8, 16. 32,.64.128. AND 256. AT THE COMPLETION OF EACH SEEK 
ety lg PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
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Lc’ - 256 
IC ° 1 
FT ° 0 
FS ° 0 


TEST 4 - OSCILLATING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES FROM "FC" TO "NC" AND BACK 

TO “FC”. “NC” STARTS AT " RIND INCREMENTS BY "IC" UP TO CYLINDER 
"LC", THEN IS DECREMENTED BY “IC” BACK TO CYLINDER “FC”. AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC ° 0 
LC . 410 
FC’ - 0 
“* - 814 
iC » 1 
FT ° 0 
FS - 0 


TEST 5 - CONVERGING/DIVERGING SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
SEEKS FROM "NC1" AND "NC2" RESPECTIVELY. "NCi" WILL BE INCREMENTED 
BY "IC" AND "NC2" WILL BE DECREMENTED BY "IC" oN ‘NC1" IS 
GREATER THAN THE INITIAL VALUE OF ° * AND ' 

LESS THAN THE INITIAL VALUE OF "NC1". AT THE COMPLETION OF 

EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

cy Bay OPERATION. “NC1" AND "NC2" DEFAULT TO 


C" RESPECTIVELY 
THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
R = 1 
FC ° 0 
LC ° 410 
FC’ ° 0 
LC’ . 814 
ii¢ ° 1 
FT - 0 
FS . 0 


TEST 6 - SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 


IN THIS TEST A SEEK 1S DONE TO CYL "NC" THEN A SEEK TO 

NC+4 THEN NC4+1 THEN NC4+3 THEN NC+2 THEN NC+5. NOW “NC” 1S UPDATED 
BY "IC" AND THE ABOVE SEQUENCE IS REPEATED UNITL "LC" | 

euceeree BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF "NC" 

is “ AT THE COMPLETION OF EACH SEEK COMMAND T 

PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
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a] 
Lente: £ o 
oo 
— 
oo-+fo00=— 


9.8 TEST 7 - RANDOM SEEK TEST 


THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC’ 

‘LC’. AFTER EACH SEEK. THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE TRACK ADORESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 

OF POSITIONING OCCURS USING oor HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARANTERS ‘FT’ AND ' 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R . 5000 
FC - 0 
LC - 410 
FC’ - 0 
® ° 814 
FT ° 0 
LT ° 18 


9.9 TEST 10 - SERVO SETTLE DOWN TEST 


THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 
THE op ON CYLINDER WHEN THE DRIVE ee oti Fee COMPLETE. 
ANOON + 


Ts VAL . A 
"NC1’ 1S INCREMENTED BY VALUE 'IC’ AND THE SEQUENCE IS REPEATED. 
THE TEST 1S COMPLETED WHEN ‘NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


WHEN THE Séck COMPLETES. THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
REGISTER (RPLA. TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
POSITION THE PROGRAM THEN AND DATA COMMAND 


OR 
M MAY NOT BE ADJUSTED 
HAT A PCAK WITH 


amm 


RE 

GINAL SERVO TRAC 
THIS TEST USES ITS THE LOOK-AHEAD REGISTER TO DETERMINE 
WHETHER OR NOT IT THE SECTOR ROTATING INTO POSITION. THE 
TEST 1S OPTIMIZED IVE S LS S$ 


THE 
THE FIRST BOX OF THE SECTOR CURRENT 
TRY TO ESS THE NEXT SECTOR. BASED 
15 me O START THE OPERATION WITHOUT 


ane 
=~ 
% 
=~ 
ee 
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THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
HUNORED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY 
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


® - 1 
FC ° 0 
LC ° 410 
FC’ - 0 
LC’ = 814 
Ic « 100 
FT ° 0 


TEST 11 - ALL SEEKS TEST 


THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EPCH CYLINDER 
TO ALL OTHER CYLINDERS. 


BEGINNING WITH CYLINDER ‘FC’. THE TEST SEEKS TO EACH CYLINDER 
BETWEEN ‘FC’ AND ‘LC’ FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
ADDRESS |S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
ADDRESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC’. THE SEQUENCE 
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 


THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 


fa 
tm) 
44 64 08 5 
Loe) 
ae 
oo-+fo00=— 


TEST 12 - ROTATIONAL SPEED TIMING TEST 


THIS TEST WILL START A SEARCH TO CYLINDER 0. TRACK 0. SECTOR 
0. AS SOON AS THE INTERRUPT OCCURS. THE GO BIT IS SET AGAIN 
AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 
TIMES THEN THE AVERAGE TIME IS CALCULATED AND CHECKED TO 
ENSURE IT 1S WITHIN TOLERANCE: 


16. 67 MS/REV + OR - 2% IF 60HZ 
16.67 MS/REV + OR - 2.5% IF SOHZ 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R ° 1 
FC ° 0 
FC’ ° 0 
FT : 0 
FS ° 0 
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9.12 TEST 13 - ONE CYLINDER SEEK TIMING TEST 


K 2 
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THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
on BY ONE UNTIL THE ett is S Seer THAN Ly 


CYLINDER ‘LC’. THEN REVER HE 
TIME TO PERFoRn EACH . - CHECKED. i ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME P 


THE TIME MUST ee L LESS THAN 
THE TEST USES THE FOLLOWING PARAMETERS: 


R ° 1 
FC . 0 
LC ° 410 
FC’ ” 0 
Lc’ - 814 


9.13 TEST 14 - ACCESS TIME MEASUREMENT 


MITTED FOR A ONE CYLINDER SEEK. 
TOMS. 


THIS TEST WILL COMMAND A FORWARD SECK FROM CYLINDER O TO 
CYLINDER ‘LC’. THEN A REVERSEK FROM CYLINDER ‘LC’ TO 
f T 


TH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 
OLERANCE ALLOWED FOR THe ACCESS TIME MEASURMENT. 


THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL 
OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 NS. 
CYLINDER ‘LC’ DEFAULTS TO 136 (10) FOR AN RPO4/S OR TO 255 (10) 


FOR AN RPOS. 
THE TEST USES THE FOLLOWING PARAMETERS: 
R ° 1 
FC ° 0 
LC - 136 
4® ° 0 
ic" - 255 


9. 14 TEST 15 - MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMANO A FORWARD SEEK FROM CYLINDER O TO 

CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 

CYLINDER O. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 

TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 

A TOTAL OF 256 SEEKS). THE MAXIMUM SEEK TIME MUST BE LESS [THAN 
LC’ DEFAULTS TO 410 (10) FOR RPO4/5'S AND TO 814 (10) 


54 MS. 
FOR RPO6'S. 
THE TEST USES THE FOLLOW!NG PARAMETERS: 
R ° 1 
FC ° 0 
LC - 410 
FC’ ° 0 
LC’ ° 814 


9. 15 TEST 16 - SECTOR ADDRESSING TEST 


SEQ 0023 
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THIS TEST WRITES DATA INTO ALL SECTORS OF hag “FT”. THE 
Ll 8 OF THE SECTOR ADORESS OF THE sty 
HECK 1S ie wae ie THE BUFFER IS 
HE = 1S READ AND io On THEN SECTOR O 


K PROCEDURE IS CONTINUED UP THROUGH 
TE CHECK SECTORS 0-21. 


THE FOLLOWING PARAMETERS: 


Po: ] 
m 
a 
« 
m 
fs 
oO 
« 
“ & 
> 


THE TEST USE 


R « 
FC ” 
FC’ - 
FT ° 
9. 16 TEST 17 - TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
IN CYLINDER “FC” shy “FS” - EVERY TRACK WITH EACH TRACK 


ooo-=— 


THROUGH TRACK 18 1S WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED. 
THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING TRACK 17 
AND WRITE CHECKING TRACK 18. 


THE TEST USES THE FOLLOWING PARAMETERS: 


Fr 
FC 
at 
FS 


9.17 TEST 20 - DATA TEST 


THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 

“FC" THROUGH “LC” BY THE INCREMENT “IC” USING THE DATA PATTERNS 

SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 

1. SET “NT” TO “FT” THEN REPEAT 2-4 UNTIL “NT” . oe 
WRITE THEN WRITE CHECK “FS” THROUGH "LS" OF TRACK “NT” 


ooo- 


3 READ THEN SOFTWARE COMPARE "FS" THROUGH “LS” OF TRACK “NT” 
4. INCREMENT “NT” BY “IT” 

5. REPEAT STEPS 1-4 FOR EACH DATA PATTERN 

6. REPEAT STEPS 1-& FOR “FC” THROUGH "LC" ADVANCING BY "IC" 


RF Ss 
WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
F AND NO READ OCCURS. 


TS TO 1 ANDO LS DEFAULTS TO 0 
T DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 
THE POSSIBLE PATTERNS ARE: 


SEQ 0024 
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177776 066667 177777 
THE TEST USES THE FOLLOWING PARAMETERS: 


o> 
O--mo£fO00— 


ee 


177777 
9. 18 TEST 21 - RANDOM ADDRESS AND RANDOM PATTERN TEST 
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STARTING AT “FC” AND GOING THROUGH “LC” THE DISK PACK 
1S WRITTEN WITH A RANDOM PATTERN THE FIRST TWO WORDS i 
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 

FOR THAT SECTOR. 

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE "R" TIMES 

“R” DEFAULTS TO 20,000. 


1) GENERATE A RANDOM ADDRESS 
2) WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1. 
3) GENERATE A RANDOM ADDRESS 
4) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 3. 
5) DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 ; 
7) GENERATE A RANDOM ADORRESS : 
8) READ THE SECTOR AT THE ADDRESS ; 
GENERATED IN 7. 
9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 


10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
THE TEST USES THE FOLLOWING PARAMETERS: 


R - 20000 
FC ; 0 
LC - 410 
FC’ ° 0 
“* ° 814 


$. 19 TEST 22 - RPO ACCESS TIME ADJUSTMENT TEST 


THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 136 TO ALLOW THE 
OPERATOR TO ADJUST THE ACCESS TIME ON AN RPOY USING THE 

DOU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R - 5000 
FC ° 

LC - 136 
FC’ - 0 
LC’ - 255 


10. PROGRAM LISTING 
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a 
1426 . TITLE CZR JAC gt at MECHANICAL AND READ/WRITE TEST 
1427 SCOPYRIGHT (C) 1976. 1978 
1428 180161 TAL EQUI PMENT CORP 
ag 2 ; eee: MASS. 
ne 2 ;SPRoGRAN BY C. HESS 
1433 oe PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
1434 SPACKAGE (MAINDEC-11-D2QAC-C3). JAN 19. 1977. 
1435 8 
1436 
outs » uiehen CONTROL SWITCH SETTINGS 
ae ; . SWITCH STATE USE 
1441 ;% 15 0 WRITE PACK BEFORE TESTING (TEST 21) 
1442 58 1 INHIBIT WRITING PACK BEFORE TESTING (TEST 21) 
1443 ik 14 0 NO STALL BETWEEN DRIVE FUNCTIONS 
LYuy Fe | 1 STALL AFTER EVERY «+ VE FUNCTION 
1445 Fe | 13 0 USE SPECIFIC STALL TIME 
1446 ;% 1 USE R STALL 
1447 ;k 12 0 NO INCREMENTING STALL IN TEST 4 
1448 Pe | 1 DO iINCREMENTING STALL IN TEST 4& 
1449 8 8 0 DO IMPLIED SEEKS WITH DATA TRANSFERS 
1450 re | 1 dO EXPLICIT SEEKS BEFORE DATA TRANSFERS 
1451 ik 7 0 DO “READ HEADER AND DATA” IN TESTS 0-11 
1452 fe | 1 DO EXPLICIT SEEKS IN TESTS 0-11 
1453 pe i 6 0 60 HZ 
1454 Fe i 1 50 HZ 
1455 re | 5 0 RUN aT uaat T 
1456 re 1 INHIBIT WATCHDOG TIMER 
1457 ;% 0 0 TEST ORIVE(S) IN 22 SECTOR (16 BIT) MODE 
— ;% 1 TEST ORIVE(S) IN 20 SECTOR (18 BIT) MODE 
1 
ee ah OPERATIONAL SWITCH SETTINGS 
1 3 
1462 re | SWITCH USE 
1463 ;B www e He weeooroscoosenos 
1464 ;k 15 HALT ON ERROR 
1465 re | 14 LOOP ON TEST 
1466 ik 13 INHIBIT ERROR TYPEOUTS 
1467 Pe 10 BELL ON ERROR 
1468 ;% g LOOP ON ERROR 
1469 it 8 PRINT ERROR MESSAGE ON LINE PRINTER 
1470 ;% 7 READ CONTROL SWITCH SETTINGS FROM TTY 
1471 ;% 6 INHIBIT TIME REPORTS (TESTS 12-15) 
1472 pe | 5 REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
1473 ;% 4 INHIBIT WRITES (TEST 15) 
1474 ;k 3 INHIBIT WRITE CHECKS (TEST 20) 
1475 it 2 INHIBIT READ AND SOFTWARE te 3 (TEST 20) 
1476 Pe | 1 INHIBIT SOFTWARE COMPARES ( T 20) 
1477 it 0 PERFORM READ AFTER WRITE cheek ERROR (TEST 20) 
1478 


1479 .SBTTL TRAP CATCHER 
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1486 000174 
1487 000176 


27-JUL- 


001100 


000200 
177776 


177774 
177772 
177570 
177570 


000000 
000001 


000002 
000003 
000004 


78 09: 18 


004636 
004660 
004626 
004650 


TRAP CATCHER 


. 20 
;S3ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A“. +2. HALT” 
+ SSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR 

saaaate> * CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: . WORD 
SWREG:  . WORD 


0 ++ SOFTWARE DISPLAY REGISTER 
0 ++ SOFTWARE SWITCH REGISTER 


. SBTTL ACTI1 HOOKS 


; , Seek Et eetete Ee AEE ere ee 
OOKS gl BY ACTI 


+ SAVE PC 


++1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
0 ++ 2)SET oC TO ZERO 


7+ RESTORE 


-SBTTL STARTING ADDRESSES 
[2200 = NORMAL START 


JMP 


@#STAR 
+%204 = SELECT OPERATING PARAMETERS 
JnP @tSTARTZ 
+4210 = SELECT RH11/RPO4/5/6 ADDRESSES 
JMP @ASTART 
+4214 = paged *  B-* OF - AND 210 


@#STAR 


.SBTTL BASIC DEFINITIONS 
;KINITIAL ADDRESS OF THE STACK POINTER £4% 1100 424% 


STACK= 1100 


- EQUIV EMT. ERROR 
. EQUIV. 10T. SCOPE 


| attaaa atau DEF sabi sy. 


LF= 12 

CR= 15 

CRLF= 200 

PS= 177776 
EQUIV PS. PSW 


DDISP= 177570 
Riz 1 
R2= %2 
R3= %3 
R4¥= “4 


++BASIC DEFINITION OF ERROR CALL 
+¢BASIC DEFINITION OF SCOPE CALL 


ODE FOR HORIZONTAL TAB 

+;CODE FOR LINE FEED 

+,CODE FOR CARRIAGE RETURN 

+; CODE FOR CARRIAGE RETURN-LINE FEED 
++PROCESSOR STATUS WORD 


++ STACK LIMIT REGISTER 
pate nally INTERRUPT REQUEST REGISTER 


WARE SWITCH REGISTER 
++ HARDWARE DISPLAY REGISTER 


7; GENERAL REGISTER 


ii "GENERAL REGISTER 
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000005 


000007 


11 30A 

BASIC DEFINITIONS 
RS= %5 
R6= %6 
R7= %7 

s %6 
PC= %7 
> SPRIORITY LEVEL DEF INI TIONS 
PRO= 0 
PRi= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PRS= 240 
PR6= 300 
PR7= 340 
SW15 100000 
SWi4= 40000 
SWi3= 20000 
SWi2= 10000 
SWii= 4000 
SWi0= 2000 
SWO9= 1000 
SWwO8= 400 
SWO7= 200 
SWO06: 100 
SWOS= 40 
SWO4= 20 
SWO3= 10 
SWwO2Z= 4 
SWO1i= 2 
SWOO= 1 
. EQUIV SWO9. SHI 
. EQUIV SWO8, SHS 
. EQUIV SWO7, SW 
.EQUIV SwWO6. 
. EQUIV SWOS. SWS 
. EQUIV SWO4, 
- EQUIV SWO3. SWI 
. EQUIV SWO2. SW2 
. EQUIV SWO1, SHI 
. EQUIV SWOO0, SWO 
; DATA 
BiTiS= 100000 
BiTi4= 40000 
BITiI= 000 
81T12= 10000 
BITii= 4000 
BIT10= 2000 
B81TO9= 1000 
BITO8= 400 
B1TO7= 200 
BITO6= 100 
BiTOS= 40 


(1052) 


0 3 
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++ GENERAL REGISTER 


; INTER 
: PROGRAM COUNTER 


PRIORITY LEVEL 
73 PRIORITY LEVEL 


ee OR 

7; PRIORITY LEVEL 
7-PRIORITY LEVEL 
+7 PRIORITY LEVEL 


. 

= 
< 
| 
m 
< 
m 
tad 

NOWSWN-O 


E 3 
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1592 BITO4= 20 
1593 000010 BITO3= 10 
1594 000004 BiTOZ= 4 
1595 000002 BITOi= 2 
1596 000001 BiTOO= 1 
1597 .EQUIV. BITOS. BITS 
1598 .EQUIV. BITO8, BITS 
1599 -EQUIV. BITO7.BIT7 
1600 .EQUIV BITO6.BIT6 
1601 -EQUIV. BITOS. BITS 
1602 -EQUIV. BITO4.BIT4 
1603 -EQUIV BITO3,.BIT3 
1604 -EQUIV B1TO2.B81T2 
1605 -EQUIV. BITO1. BIT! 
sone . EQUIV 81TOO.BITO 
1608 s3BASIC "CPU" TRAP VECTOR ADDRESSES 
1609 000004 ERRVEC= 4 + TIME OUT AND OTHER ERRORS 
1610 000010 RESVEC= 10 i+ RESERVED AND ILLEGAL INSTRUCTIONS 
1611 000014 TBITVEC=14 ;"T" BIT 
1612 000014 TRIVEC= 14 3 TRACE TRAP 
1613 000014 BPTVEC= 14 +7 BREAKPOINT TRAP (BPT) 
1614 000020 1O0TVEC= 20 ++ INPUT/OUTPUT TRAP (10T) £*SCOPESS 
1615 000024 PWRVEC= 24 ++POWER FAIL 
1616 000030 EMTVEC= 30 ++ EMULATOR TRAP (EMT) SSERROREE 
1617 000034 TRAPVEC=34 +7 "TRAP" TRAP 
1618 000060 TKVEC= 60 ++ TTY KEYBOARD VECTOR 
1619 000064 TPVEC= 64 ++ TTY PRINTER VECTOR 
1620 000240 PIRQVEC=240 ;PROGRAM INTERRUPT REQUEST VECTOR 
re! Pettitiiitisiirittititsstitiititietitittititttitttittt sitet ttt ss 
pay .SBTTL RH11 REGISTERS 
yd jj RERAAAAAAAAA AAA AAA AAAAA AAA A AAA AA AAA AAA ALAA AAAS AAA AAA AAA TAY 
oe +CONTROL AND STATUS REGISTER 1 (RPCS1) 
1629 000100 1E= 100 + INTERRUPT ENABLE (BIT #6) 
1630 000200 ROY= 200 ;READY (BIT #7) 
1631 000400 Al6= 400 +HIGH ORDER BUS ADDRESS BIT (BIT #8) 
1632 001000 Al7= 1000 +HIGH ORDER BUS ADDRESS BIT (BIT #9) 
1633 002000 PSEL= 2000 PORT SELECT (BIT #10) 
1634 020000 MCPE= 20000 +MASSBUSS PARITY ERROR (BIT #13) 
1635 040000 TRE= 40000 + TRANSFER ERROR (BIT #14) 
ron +SC= 100000 +SPECIAL CONDITION (BIT #15) 
1638 ;WORD COUNT REGISTER (RPWC) 
pres + (EACH BIT IS CALLED BY BIT NUMBER) 
1641 +BUS ADDRESS REGISTER (RPBA) 
my + (EACH BIT IS CALLED BY BIT NUMBER) 
te + CONTROL AND STATUS REGISTER 2 (RPCS2) 
1 
1646 000001 US1= 1 +UNIT SELECT (BIT #0) 
1647 000002 US2= 2 +UNIT SELECT (BIT #1) 








 - 
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RH11 REGISTERS 


US4= 4 ;UNIT SELECT (BIT #2) 
BAI= 10 + 8US ESS INCREMENT INHIBIT (BIT #3) 
sPAT= 20 ; US PARITY TEST (BIT #4) 
CLR= 40 CLEAR (BIT @5) 
IR= 100 + INPUT READY (BIT &6) 

2 200 ; OUTPUT READY (BIT &7) 
MPE= 400 ; BUS PARITY ERROR (BIT #8) 
MXF = 1000 *MISSED TRANSFER ERROR (BIT #9) 
PGE= 20 +; PROGRAM ERROR (BIT #10) 
NEM= 4000 NON EXISTENT MEMORY (BIT #11) 
NED= 10000 +NON EXISTENT DRIVE (BIT #12) 
UPE= 20000 ;UNIBUS PARITY ERROR (BIT #13) 
WCE= 40000 +WRITE CHECK ERROR (BIT #14) 
OLT= 100000 DATA LATE (BIT #15) 


+DATA BUFFER REGISTER (RPDB) 

+> (EACH BIT 1S CALLED BY BIT NUMBER) 

+s MERSAAAAAATAI ALA AAAS AAA AA AAA AAA A AAA AA AAA AAA AA TAA AAA ATA AAA ATS 
.SBTTL RPO4/5/6 REGISTERS 

+ RERAASAAAAAAAAAATAA AA AAA AAA AA AAA AAA AA AAA AAA AA AAA AAAAAAAAATT ss 
CONTROL AND STATUS 1 REGISTER. (#00) 


GO= 1 +GO BIT (BIT &0) 

Fiz 2 +FUNCTION CODE BIT #1 

F2= 4 +FUNCTION CODE BIT &2 

F3= 10 +FUNCTION CODE BIT &3 

Fu= 20 +FUNCTION CODE BIT #4 

F5= 40 +FUNCTION CODE BIT &5 

DVA= 4000 +DEVICE AVAILABLE (BIT #11) 

/DRIVE STATUS REGISTER (RPDS1) (#01) 

;OFS5= 1 DRIVE FORWARD 5"/SEC. at #0) 
DFF20= 2 +DRIVE FORWARD 20"/SEC. (BIT #1) 
DiGB= 4 ;DRIVE TO INNER GUARD BAND (BIT #2) 
GRV= 10 +GO REVERSE (BIT #3) 

DL64= 20 +DIFFERENCE LESS THAN 64 (BIT #4) 
DE 1= 40 DIFFERENCE EQUALS 1 (BIT #5) 

VV= 100 ;VOLUME VALID (BIT #6) 

DR Y= 200 +DRIVE READY (BIT #7) 

DPR= 400 DRIVE PRES ao + #8) 

PGM= 1000 ; PROGRAMABL #9) 

LST= 2000 +LAST SECTOR TRANSFERRED (BIT #10) 
WRL= 4000 *WRITE LOCK (BIT @t 

MOL= 10000 MEDIUM ON-LINE BIT #12) 

PIiP= 20000 POSITIONING OPERATION IN hatin (BIT #13) 
ERR= 40000 +COMPOSITE ERROR (BIT #14 

ATA= 100000 ATTENTION ACTIVE (BIT is) 


ERROR REGISTER #01 (RPER1) (#02) 
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RPO4/5/6 REGISTERS 


ILF= 1 ; ILLEGAL FUNCTION (BIT 80) 

ILR= 2 ; ILLEGAL REGISTER (BIT #1) 

RAR= ~ ;REGISTER MODIFICATION REFUSED (BIT #2) 
PAR= 10 PARITY ERROR (BIT #3) 

FER= 20 ; T ERROR (BIT #4) 

WCF = 40 ;WRITE CLOCK FAIL (BIT @5) 

ECH= 100 7ECC E (BIT #6) 

HCE= 200 sHERDER COMPARE ERROR (BIT #7) 
HCRC= 400 +HERDER CRC ERROR (BIT #8) 

AOE= 1000 ADDRESS OVERFLOW ERROR (BIT #9) 
|AE= I NVAL E ROR (BIT #10) 
WLE= 4000 ;WRITE LOCK ERROR (BIT #11) 
DTE= 10000 DRIVE TIMING ERROR (BIT #12) 

OP I= 20000 OPERATION INCOMPLETE (BIT #13) 
UNS= 40000 DRIVE UNSAFE (BIT #14) 

DCK= 100000 +DATA CHECK ERROR (BiT 15) 
;MAINTAINABILITY REGISTER (RPMR)( #03) 

DMD= 1 +DIAGINOSTIC MODE (BIT #0) 

MCLK= 2 /MAINTAINABILITY CLOCK (BIT #1) 
MINX= 4 ;MAINTAINABILITY INDEX (BIT #2) 
MSTCK= 10 /MAINTAINABILITY SECTOR CLOCK (BIT #3) 
MRD= 20 ;MAINTAINABILITY READ (BIT #4) 
MUR = 40 ;MAINTAINABILITY WRITE (BIT #5) 
OTSY= 200 +MAINTAINABILITY SYNC DETECTED (BIT #7) 
ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 

ATO= 1 *DEVICE O (BIT &0) 

AT1i= 2 sDEVICE 1 (BIT #1) 

AT2= 4 +DEVICE 2 (BIT &2) 

AT3= 10 sDEVICE 3 (BIT &3) 

AT4= 20 /DEVICE 4 (BIT #4) 

AT5= 40 ;DEVICE 5 (BIT #5) 

AT6= 100 +DEVICE 6 (BIT #6) 

AT7= 200 sDEVICE 7 (BIT #7) 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
+ (EACH BIT IS CALLED BY BIT NUMBER) 


+DRIVE TYPE REGISTER (RPDT) (#06) 


OTOO= 1 /DRIVE TYPE NUMBER BIT 1 

OTO1= 2 sORLVE TYPE NUMBER BIT 2 
OTO2= 4 /DRIVE TYPE NUMBER BIT 3 
OTO3= 10 /ORIVG TYPE NUMBER BIT 4 
DTO4= 20 +DRIVE* TYPE NUMBER BIT 5 
OTO5= 40 +ORIVE TYPE NUMBER BIT 6 
DTO6= 100 +DRIVE TYPE NUMBER BIT 7 
OT07= 200 DRIVE TYPE NUMBER BIT 8 
OTO8= 400 +DRIVE TYPE NUMBER BIT 9 

DRQ= 4000 DRIVE REQUEST REQUIRED (BIT #11) 
MOH= 20000 sMOVING HEAD (BIT #13) 

TAP= 40000 + TAPE ORIVE (BIT #14) 

NBA= 100000 +NOT BLOCK ADDRESSED (BIT #15) 


SEQ 0032 
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+ LOOK-AHEAD REGISTER (RPLA) (807) 


ExXTi= 1 
EXT2= 2 
EXT4= 4 
ExT1i0= 10 
EXT20= 20 
EXT4O= 40 
SCi= 100 
SC2= 200 
;SC4= 400 
$C 10= 1000 
$c20=- 20 
TRKi= 4000 
TRK2= 10000 
TRK4= 20000 
TRK10= 40000 
K20= 100000 


CSF= 2 
WSU= 4 
CSU= 10 
MSE= 20 
TOF = 40 
TUF = 100 
FEN= 200 
WRU= 400 
MHS= 1000 
NHS= 2000 
IXE= 4000 
VU30= 10000 
PLU= 20000 


+ EXTENS 
+ EXTENS 
XTE 


MEWwnN oO 


232s ee oN Ow ew we we we 


a 


S2VVss 
eneun= 


aeese 


ml at ok ol 
oo°o[°o9o 


WMeWwWN eee 


www we OOWOTw 


0 ERROR 
; TRANS IT IONS DETECTOR Fal LURE (BIT #5) 


+ TRANS ITI 


ONS UNSAFE (BIT 


#6) 


+FAILSAFE ENABLED (BIT &7) 


INDEX ERROR (BIT #11) 


T #8) 


+ 3OVOLT UNSAFE (BIT #12) 
+PLO UNSAFE (BIT #13) 
AC UNSAFE (BIT #15) 


+RPOS/6 ERROR REGISTER #02 (RPERZ) (#10) 


*WRITE CURRENT UNSAFE (BIT #0) 
+ CURRENT SINK FAILURE (BIT #1) 
+WRITE SELECT UNSAFE (BIT #2) 
+ CURRENT SWITCH UNSAFE (BIT #3) 


WCU= 1 
CSF= 2 
WSU= u 
CSU= 10 
RAW= 20 
TOF = 40 
TUF = 100 
ABS= 200 
WRU= 400 
MHS= 1000 
NHS= 2000 
IXE= 4000 
PLU= 20000 


OFFSET REGISTER (RPOF) (#11) 


+ INDEX ERROR (BIT #1 


( 
3 ( 
+MUTLTIPLE HEAD ies 
1 
+PLO UNSAFE (BIT #12) 


8 
8 
? 
B 
T 
| 
) 


4 
F 
| 
) 
| 


T 


) 

Se oy (BIT #5) 
T@ 
Ta 
(Bi 
#1 


SEQ 0033 
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1816 000001 OF25= 1 sOFFSET 25 MICRO INCHES (BIT #0) 
1817 000002 OF50= 2 ; OFFSET 50 MICRO INCHES (BIT #1) 
1818 000004 OF100= 4 ;OFFSET 100 MICRO INCHES (BIT #2) 
1819 000010 OF200= 10 OFFSET 200 MICRO INCHES (BIT #3) 
1820 OF4OO= 20 OFFSET 400 MICRO INCHES (BIT #4) 
1821 000040 OF800= 40 + OFFSET 800 MICRO INCHES (BIT &5) 
1822 200 OFREV= 200 OFFSET NEGATIVE (REVERSE) (BIT &5) 
1823 002900 HC I= 2000 ; R COMPARE INHIBIT (BIT #10) 
1824 004000 ECi= 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 
Myo 010000 FNTZ22= 10000 FORMAT BIT (BIT #12 
1827 +DESIRED CYLINDER ADDRESS (RPCA) (#12) 
pe * (EACH BIT IS CALLED BY BIT NUMBER) 

1830 +CURRENT CYLINDER ADDRESS (RPCC) (#13) 

oot + (EACH BIT IS CALLED BY BIT NUMBER) 

1833 +SERIAL NUMBER REGISTER (RPSN) (#14) 

ta + (EACH IS CALLED BY BIT NUMBER) 

oe +RPOY ERROR REGISTER #O3 (RPERS) (#15) 

1838 000001 PSU= 1 +PACK SPEED UNSAFE ee or 
1839 000002 VUF = 2 + VELOCITY UNSAFE (BIT & 

1840 000010 UWR = 10 ANY UNSAFE EXCEPT READ/UR I TE (BIT #3) 
1841 000040 ACL= 40 -AC LOW (BIT @5) 

1842 000100 DOCL= 100 +DC LOW (BIT #6) 

1843 040000 SK |= 40000 +SEEK INCOMPLETE (BIT #14) 
oa 100000 OCcYL= 100000 OFF CYLINDER (BIT #15) 

oo +RPOS/6 ERROR REGISTER #03 (RPER3) (#15) 

1848 000001 OCU= 1 +DC UNSAFE (BIT &0) 

1849 000002 WAQ= 2 +WRITE AND OFFSET (BIT #1) 
1850 000040 ACL= 40 7AC LOW (BIT #5) 

1851 000100 DCL= 100 +DC LOW (BIT &6) 

1852 020000 OPE= 20000 OPERATOR PLUG ERROR (BIT #13) 
1853 040000 SK I= 40000 +SEEK INCOMPLETE (BIT #14) 
fot! 100000 ocYL= 100000 OFF CYLINDER ERROR (BIT #15) 
1856 ECC POSITION REGISTER (RPEC1) (#16) 

pot ; (EACH BIT IS CALLED BY BIT NUMBER) 

1859 ECC PATTERN REGISTER (RPEC2) (#17) 

$3 + (EACH BIT IS CALLED BY BIT NUMBER) 

— jj MEMAAAARAAAAA AAA AAA TAAL AA AAA AAA A AAA AAA AA AAA AAA AAA A AAA AAA EAE 
1 

1864 OP CODE DEFINITIONS 

1865 000101 NOOP=101 

1866 000103 UNL OAD= 103 

1867 000105 SEEK=105 

1868 000107 RECAL=107 

1869 000111 ORVCLR=111 

1870 000113 RELEASE=113 


1871 000115 OF FSET=115 
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RTC=117 


SELORV=145 


+OTHER EQUATES 
CTRWC = -256. 


S) 
FNT22=10000 
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;WORD COUNT FOR SECTOR 
FORMAT 22 BIT 


SEQ 0035 
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000377 


. SBTTL COMMON TAGS 
+; SESATAAAAAAALATALAA ATLA LATA TAAL ATA SAAT ATATA TATA T SAT LII IT zs 


+3THIS TABLE CONTAINS VARI 


+SUSED IN THE PROGRAM. 


. 21100 
SCNTAG: 
SPASS: . WORD 
STSTNM: . BYTE 
SERFLG: . BYTE 
SICNT: . WORD 
SLPADR: . WORD 
SLPERR: . WORD 
SERTTL: . WORD 
SITEMB: . BYTE 
SERMAX: . BYTE 
SERRPC: . WORD 
SGDROR: . WORD 
SBDADR: . WORD 
SGODAT: . WORD 
SBDOAT: . WORD 
. WORD 
. WORD 
SAUTOB: . BYTE 
SINTAG: . BYTE 
. WORD 
WR: 0 
DISPLAY: . WORD 
STKS: 177560 
STKB: 177562 
S$TPS: 177564 
STPB: 177566 
SNULL: BYTE 
SFILLS: . BYTE 
SFILLC: . BYTE 
STPFLG: . BYTE 
SRE . WORD 
SREGO: . WORD 
SREGi: . WORD 
EG2: . WORD 
SREG3: . WORD 
EG4: . WORD 
SREGS: . WORD 
STMPO: WORD 
STMP1: . WORD 
TMP 2: WORD 
STIMES: O 
SCAPE: 
S$BELL: ASCIZ 
SQUES: ASCII 
SCRLF: ASCII 
LF: Sci 


SUR 


ouvooooooooo00-oc0000000 


i) 


Ooo0o00000 o0O-NnOoO 


rte (377) 
“16> 
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OUS COMMON STORAGE LOCATIONS 


++ START OF COMMON TAGS 


++ CONTAINS ERROR FLAG 
++ CONTAINS SUBTEST ITERATION COUNT 
SCOPE LOOP ADOR 


L 
i; CONTAINS SCOPE RETURN FOR ERRORS 


TEST 
++ CONTAINS PC OF LAST ERROR INSTRUCTION 
++ CONTAINS ADDRESS OF ‘GOOD’ DATA 


i3 Al DATA 
+;RESERVED--NOT TO BE USED 


+; AUTOMATIC MODE INDICATOR 
++ INTERRUPT MODE INDICATOR 


+; ADDRESS OF SWITCH REGISTER 

+;ADORESS OF DISPLAY REGISTER 

++ TTY KBO STATUS 

is TTY KBO BUFFER 

+2 TTY PRINTER STATUS REG ADDRESS 

++ TTY PRINTER BUFFER REG ADDRESS 

+2 CONTAINS NULL CHARACTER FOR FILLS 

+; CONTAINS @ OF FILLER CHARACTERS REQUIRED 
++ INSERT FILL CHARS. AFTER A “LINE FEED" 
+7 “TERMINAL AVAILABLE” Ae (B1T<O07>=0=YES) 
++ CONTAINS THE RDOORESS F 

+;WHICH (S$REGO) WAS OBTAINED 


++ CONTAINS (($REGAD)+10) 
i+ CONTAINS (($REGAD)+12) 
R DEFINED 


+; USER DEFINED 

++ USER DEFINED 

+7 MAX. NUMBER OF ITERATIONS 
+7 ESCAPE ON ERROR ADDRESS 

i 5 CODE FOR BELL 


STION MARK 
++ CARRIAGE RETURN 


$ ~ASCIZ <12> +LINE FEED 
;; MESSUNESSSRSASSNAESSANSANEES S400 SSNNEESAREESSAEEESNETIANATEALD 


SEQ 0036 
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000012 
000000 


S 


+ CONTROL SWITCHES 
+ PREVIOUS sees OF ‘C. SWR' 
TROL “C" FLAG 


T ADDRESSES FROM THE TTY FLAG (O=NO. -1=YES) 
T AVAILABLE STATUS (O=NO, 1=YES) 
IVES SELECTED FOR TESTING 

UN TESTS 0-15 

: RODIFY TEST PARAMETER FLAGS 

;CLOCK STATUS (O=NO CLOCK, +1=KW11-P, 

16 


a 


OPNFLG: . 
CLKSTA: . 
TICKAS: . 
TICKUS: . 


BYPASS: . 
CHKORV: . 


ORVMSK: . 
SVSTAT: . WORD 


~12KW11-L) 
MILLISECONOS PER CLOCK TICK 
16666 MIRCOSECONDS PER CLOCK TICK 


2 
tts 
oc 
oo 
x: 
a 


TIME 
+NUMBER OF COUNTS BELOW MIN. LIMIT 
;MAXIMUM TIME 


OF COUNTS ABOVE MAX. LIMIT 
L SEEKS 


oOo 


IME 
+NUMBER OF COUNTS BELOW MIN. LIMIT 
gers g TIME 
+NUMBER OF COUNTS ABOVE MAX. LIMIT 
; TOTAL TIME OF ALL SEEKS 
ER OF SEEKS + ght 
POINTS TO TABLE OF TIMES 
FATAL WRITE CHECK ERROR FLAG (TEST 20) 
VARIABLE STALL (TEST 4) 
+SAVE DISK ADDRESS (TEST 22) 
+ SEEK eae _ es! 10) 
+ SEEK COUNTE 
TESTING RANGE FOR SERVO SETTLE DOWN TEST 
«256. %22. > ;WORD COUNT FOR A FULL TRACK IN 16 BIT MODE 
ILLISECONDS STALL (TEST 0-11) 
ILLISECONOS STALL (TEST 16-21) 
C STALL (TEST 22) 
AX. INCREMENTING STALL ALLOWED IN TEST 4 
UMBER OF ERRORS ALLOWED IN TESTS 16 - 21 
BEFORE GOING TO THE NEXT TEST 


Oo 


>. 
o 


1 
0 
0 
0 
0 
0 
0 
3 
0,0 
0 
1 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
10. 


o oe 

rs 

ten 

o 

oe oe 
—OnP 


8 8888888888 
& 


psoees Sane AND VECTORS 

H. AOR: . WORD 176700 +RH11-RH70 UNIBUS ADDRESS 
000 000240 RHVEC. 254, 5832 +RH11-RH70 VECTOR ADDRESS AND PRIORITY 
000104 000106 PKV: ‘WORD 104, 106 +KW11-P VECTOR ADDRESS 
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177514 
177516 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 


000400 
001000 
2000 


000 
010000 
020000 
040000 


100006 
000001 
000002 


1 


000040 
000100 
000200 


18 


000102 


n 3 
27-JUL-78 09:24 PAGE 42 


SEQ 0038 
+KW11-P CONTROL AND or REG. 
+KW11-P COUNT SET BUFFE 
+KW11-P COUNTER 
sKW11-L VECT 
+KW11-L STATUS REGISTER 
+ TTY PRINTER STATUS 
+ TTY PRINTER BUFFE 
+LINE PRINTER STATUS 
+LINE PRINTER BUFFER 


+REPEAT COUNTS FOR ALL TESTS 
YL INDER 


+ INCREMENT CYLINDER 
FIRST TRACK 

+LAST TRACK 

+ INCREMENT TRACK 


; CODE 
+NEW CYLINDER ADDRESS 
+NEW CYLINDER ADDRESS 


PKCS .WORD 172540 

PKB: -WORD 172542 

PKC -WORD 172544 

LKV -WORD 100,102 

KS -WORD 177546 

TPS .WORD 177564 

TPB .WORD 177566 

LPS .WORD 177514 

LPB .WORD 177516 

;BIT TABLE 
.WORD 81TOO 
.WORD BITOI 
.WORD BITOZ 
.WORD BITOS 
.WORD BITOY 
.WORD BITOS 
.WORD BITOE 
.WORD 681TO7 
.WORD BITO8 
.WORD BITOS 
.WORD BIT1O 
.WORD BITI1 
.WORD BIT1I2 
.WORD BITI3 
-WORD BITi4 
.WORD BITI5S 
.WORD 8B1TO00 
.WORD BITO! 
-WORD BITOZ 
.WORD BITOS 
.WORD BITO4 
.WORD BITOS 
.WORD BITOb 
.WORD 8B!T07 

7 COMMON STORAGE FOR TEST PARAMETER 

PRM: .WOoRD O 

RPT: .WOoRD O 

FC: .WORD O 

LC: .WOoRD O 

IC: .WORD O 

FT: .WOoRD O 

LT: .WoRD O 

iT -WOoRD QO 

FS .WoRD QO 

LS .WOoRD O 

PAT: .WwoRD QO 

NC 1: .WoRD O 

NC 2: .WwoRD O 

; TABLE OF PARAMETER POINTERS 

PRMPT: .WORD PRMO 
‘ PRMI1 
.WORD PRNZ 





CZR JAC 
CZR JAC 
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N 3 
RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 308(1052) 27-JUL-78 09:24 PAGE 43 
COMMON TAGS 


Pil 27-JUL-78 09: 18 


0158s 002414 WORD PRN3 
O015%6 002436 “WORD PRMY 
001550 002460 WORD PRIS 
001552 002502 WORD  PRN6 
00155" 002524 WORD PRI? 
001556 002544 WORD — PRAIO 
001560 002564 ‘WORD PRIMI 
001562 002606 WORD — PRMIZ 
001568 002622 WORD PRAT 
001566 002636 WORD = PRMIY 
001570 002652 WORD PRMIS 
001572 002666 WORD PRIIG 
001578 002 WORD — PRHI7 
001576 002712 : WORD 
001600 002744 WORD PRN21 
001602 002760 WORD  PRN22 
00160" 000000 WORD 0 ; TERMINATOR 
; PARAMETER UPPER LIMIT 
001606 032767 PRMLMT: . WORD 32767 “2 
001610 000632 WORD 410. i¥¢° 
001612 000632 WORD = 410. "10" 
01614 001456 “WORD 814. ej ee 
01616 001456 “WORD = 814. Mh ag 
1620 001456 WORD B14. “ier 
001622 000022 WORD 18. i¥y" 
001628 000022 “WORD 18. “7° 
001626 000022 WORD 18. “iT 
001630 000025 WORD = 21. "FS" 
001632 000025 WORD = 21. "LS" 
001638 177777 WORD 177777 "PAT" 
; TABLE OF MESSAGE POINTERS 
1636 043002 . HORD 
001640 043004 WORD ASG. FC 
001642 043007 . WORD ASG LC 
1644 043012 WORD MSGFCP 
01646 043016 "WORD ASGLCP 
001650 043022 “WORD ASG. IC 
001652 043025 WORD ASG. FT 
001654 043030 WORD -ASG.LT 
1666 043033 WORD ASG. IT 
001660 043036 WORD ASG FS 
001662 043041 /WORD ASG. LS 


s+ STATUS/ERROR INDICATOR NE SSAGES POINTER TABLE 
gel VALUES OF TEST PARAMETERS 


166% 001126 000310 000632 OFLT: .WORD 1125,200.410 .814..0,0 ;RECAL/SEEK (TO) 
001672 001466 000000 000000 
1700 003377 000144 .WORD 3377.100 .0,128..0,256..0,0,0,0,0 + SEEK/SEEK (T1) 
1 Sooses 000000 000400 
0017148 000000 
001722 rye | 000000 
001726 0011 000001 -WORD 1177,1,0,410.,0.814..1,9,.9 ; INCREMENT SEEK (T2) 
001734 000632 000000 001456 . 
001742 000001 000000 


SEQ 0039 





® 
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COMMON TAGS 


27-JU-78 
001177 


: 


= 
i=) 


1177, 10.0, 256. .0, 256. 1.0.0 ; STEPPING SEEK (T3) 


1177,1,0,410. ,0,814.,1,0,0 ;OSCILLATING SEEK (T4) 


a 
35 


1177,1,0,410. ,0,814.,1,0,0 ; CONVERGING/DIVERGING SEEK (T5) 


EF 


1177,1,0,410. ,0,814.,1,0,0 ;SERVO ADDRESSING LOGIC NOISE (Té) 


= —_ 
ma a 


337,5000 .0,416.,0,814.,.0,18. ;RANDOM SEEK TEST (T7) 


= 
= 
Ce 


177.1,0,410.,0,814.,100.,0 ;SERVO SETTLE DOWN TEST (T10) 


§ 
3 


1177,1.0,410.,0,814.,1,.0,0 +ALL SEEKS TEST (T11) 


Et 
SF 


oe 
= 
oe 
we 


1113,1,0,0,0,0 ;ROTATIONAL SPEED TIMING TEST (T12) 

37,1,0, 410. .0, 814. ONE CYLINDER SEEK TIMING TEST (T13) 
37, 1,0, 136. .0, 255. ACCESS TIME MEASURMENT TEST (T14) 
37,1,0,410. ,0, 814. + MAXIMUM SEEK TIMING TEST (T15) 
113,1,0,0,0 SECTOR ADDRESSING TEST (T16) 

1013.1,0,0,0 + TRACK ADDRESSING TEST (T17) 

7777.1,0,410. .0,814. .64. .0,18..1-1,0,.177777 ; DATA TEST (T20) 


= 
i ogo 
Cad rs 
ot o 


37, 20000 .0,410.,0,814. ;EXERCISER (721) 
37,5000. ,0.136.,0,255. ;RPOY ACCESS TIME ADJUSTMENT TEST (T22) 


2 
z 


= 

oO 
So 
= 
-—- 
oa 
- 
So 


+ SEEK/SEEK (T1) 
PRM1: .WORD 3377 
WORD 100. 
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Pil 27-JUL-78 09: 18 COMMON TAGS 


nv 
eo 


SoooeRnos © 
o 


0 
410. 


814. 


; SERVO og + lar FS NOISE GENERATOR (T6) 


PRM6: . WORD 
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COMMON TAGS 


RANDOM SEEK TEST (T7) 
PRN7:; .WORD 337 
. WORD — 


+ SERVO SETTLE DOWN TEST (T10) 
PRM10: .WORD 177 
-WORD 1 


= x= 

BBS 
ooo 
oO-wOrloO 
oO-— os 
of oO 


;ALL SEEKS TEST 
PRM11: oem 


a 
Ne 
Ne 


—_ —_ 
= O° 


;ROTATIONAL SPEE IMING TEST (712) 
PRM12: 3 


= 
So 
x 
o 
oooo0-=-9 oo-a0o+f+0-—-- 


;ONE CYLINDER SEEK TIMING TEST (T13) 
PRN13: 37 
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, COMMON TAGS 


CZR JAC. P11 27-JUL-78 O09: 18 SEQ 0043 
2283 ACCESS TIME MEASURMENT TEST (714) 
228% 002636 000037 PRM14: .WORD 37 
2285 002640 000001 .WORD 1 
2286 002642 000000 .WORD O 
2287 002644 000210 -WORD 136. 

2288 002646 000000 .WORD O 

4 002650 000377 .WORD 255. 
2291 ;MAXIMUM SEEK TIMING TEST (T15) 
2292 002652 000037 PRM15: .WORD 37 
2293 002654 000001 ORD 

229% 002656 000000 .WORD O 

2295 2660 000632 -WORD 410. 
229 002662 000000 .WORD Q 

ya 2664 001456 -WORD 814. 
2299 + SECTOR ADDRESSING TEST (T16) 
2300 000113 PRM16: .WORD 113 
2301 70 000001 WORD i 

2302 002672 000000 WORD O 

2303 002674 000000 WORD QO 

2304 002676 000000 WORD 0 

2306 + TRACK ADDRESSING TEST (T17) 
2307 002700 001013 PRM17: .WORD 1013 
2308 002702 000001 . WORD 

2 002 000000 .WORD QO 

2310 002 000000 WORD O 

orth 002710 000000 .WORD O 

2313 DATA TEST (T20) 

2314 002712 007777 PRMN20: .WORD 7777 
2315 002714 000001 . WORD 

2316 002716 000000 .WORD O 

2317 00 000632 .WORD 410 
2318 002722 000000 . WORD 

2319 002724 001456 .WORD 814 
2320 000100 .WORD 64 
2321 002730 000000 .WoRD OQ 

2322 002732 000022 .WORD 18. 
2323 002734 000001 -WORD 1 

2324 002736 000001 .WORD 1 

2325 002740 000000 .WORD O 

2326 002742 177777 PTRNIS: .WORD 177777 
2328 sEXERCISER (721) 

2329 002744 000037 PRMN21: .WORD 37 
2330 002746 047040 .WORD 20000. 
2331 002750 000000 .WORD O 

2332 002752 000632 .WORD 410. 
2333 002754 000000 -WORD O 

id 002756 001456 .WORD 814. 
2336 ;RPOW ACCESS TIME ADJUSTMENT TEST (122) 
2337 002760 000037 PRMN22: .WORD 37 
2338 002762 011610 .WORD 5000. 





PEREPET IE ELE REREE 


Pil 


000000 
000210 
000000 
000377 


165555 
133333 
165555 


18 


. WORD 
. WORD 
. WORD 
. WORD 
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0 
136. 
0 
255. 


+SEEK TIMING LIMITS 


T7A: 


T7B: 


T10: 


T12: 


PAT. PT: . 


;PATTERNS O THRU 15 


PATO: 


.WORD NMSG7 
WORD 0 

WORD 1634. 
-WORD 1700. 
.WORD MSG7 
.WORD O 

WORD 1625. 
.WORD = 1709. 

. WORD MSGIOA 
.WORD MSG108B 
-WORD QO 
.WORD 1000 
WORD MSG11A 
.WORD MSG11B 
WORD 0 
.WORD 5500. 
WORD MSG12A 
WORD MSG12B 
.WORD O 
.WORD 5500. 
WORD PATO 
WORD PATI 
.WORD PAT2 

. WORD PAT 
.WORD PATY 
.WORD PATS 
.WORD PAT6 
.WORD PAT? 
.WORD PATS 
.WORD PATI 
.WORD PATIO 
.WORD PATI1 
.WORD PATIZ2 
.WORD = PATI3 
.WORD = PATI4 
.WORD PATIS 
. WORD 165555 
-WORD 133333 
.WORD 165555 
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+ (16. 67-2%) 442 
+ (16. 6742% 442 


7-2. 5%) 442 
742. 5%) 442 


no 


+NO LOWER LIMIT 
+ (743) 842 


+NO LOWER LIMIT 
+ (2842)4%2 


*NO LOWER LIMIT 
+ (5042 )4%2 


+ TABLE OF POINTERS WHICH POINT TO THE 
PATTERNS USED BY THE DATA TEST 


PATTERN O 


SEQ 0044 


PRL Shy SITET IL IE Lee te pcha RA, RD 
CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACYI1 30A(1052) 27-JUL-78 09:24 PAGE 49 
CZRIAC.P11 © 27-JUL-78 09: 18 COMMON TAGS 

2395 
396 


003112 133333 -WORD 133333 ° 
2 003114 165555 -WORD 165555 
2397 003116 133333 -WORD 133333 
2398 003120 165555 -WORD 165555 
2399 003122 133333 -WORD 133333 
2400 003124 165555 -WORD 165555 
2401 003126 133333 WORD 133333 
2402 003130 165555 .WORD 165555 
2403 003132 133333 -WORD 133333 
2404 OO3134 165555 .WORD 165555 
2405 003136 133333 -WORD 133333 
06 003140 165555 .WORD 165555 
2407 003142 133333 -WORD 133333 
003144 000001 PAT1: .WORD 000001 ;PATTERN 1 
2410 003146 000003 WORD 000003 
2411 003150 000007 .WORD 000007 
2412 003152 000017 .WORD 000017 
2413 003154 000037 .WORD 000037 
241% 003156 000077 WORD 000077 
2415 003160 000177 .WORD 000177 
2416 003162 000377 WORD 000377 
2417 003164 000777 WORD 
2418 003166 001777 WORD 001777 
2419 003777 WORD 003777 
003172 007777 WORD 007777 
2421 003174 017777 WORD 017777 
2422 003176 037777 WORD 037777 
2423 003200 077777 -WORD 077777 
jt a4 003202 177777 .WORD = 177777 
2426 003204 177776 PAT2; .WORD 177776 ;PATTERN 2 
2427 003206 177774 ~WORD = 177774 
2428 003210 177770 WORD 177770 
2429 003212 177760 WORD 177760 
003214 177740 WORD 177740 
2431 003216 177700 WORD 177700 
2432 3 177600 WORD 177600 
003222 177400 WORD 177400 
2434 003224 177000 WORD 177000 
2436 176000 WORD ? 
2436 174000 WORD 174000 
2437 003232 170000 .WORD 170000 
2438 160000 .WORD 160000 
2439 140000 WORD 140000 
2440 003240 100000 WORD 100000 
a 2 WORD 000000 
ee 003244 000000 PAT3: eoae 000000 ;PATTERN 3 
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27-JUL- 


177777 
177777 
000000 


177777 
000000 
177777 
000000 
177777 
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COMMON TAGS 


PATS: 


PATS: 


PATE: 


177777 
177777 
000000 


177777 
000000 
177777 
000000 
177777 


PATTERN 4 


PATTERN 5 


PATTERN 6 


SEQ 0046 





CZR 
CZR JAC. Pil 27-JUL-78 09: 18 


2507 OO3436 170360 -WORD 170360 
27508 OO3440 007417 -WORD 007417 
om OO3442 170360 .WORD 170360 
2511 OO3444 026455 PAT7?:; .WORD 026455 
2512 GU3446 026455 -WORD 026455 
2513 55 -WORD 026455 
251% 003452 151322 -WORD 151322 
2515 4 151322 -WORD 151322 
2516 3456 151322 -WORD 151322 
2517 003460 -WORD 026455 
2518 003462 -WORD 026455 
2519 OO34E4 151322 WORD 151322 
2520 151322 -WORD 151322 
2521 003470 6455 -WORD 026455 
2522 003472 151322 WORD 151322 
2523 55 WORD 026455 
2524 OO03476 151322 WORD 151322 
2525 003500 026455 .WORD 026455 
2526 003502 151322 -WORD 151322 
2528 003504 165555 PATS: .WORD 165555 
2529 133333 -WORD 133333 
2530 003510 165555 WORD 165555 
2531 003512 133333 WORD 133333 
2532 003514 .WORD 165555 
2533 003516 133333 WORD 133333 
2534 WORD 165555 
2535 003522 133333 -WORD 13332 
2536 003524 1 .WORD 165555 
2537 003526 133333 WORD 133333 
2538 003530 16 WORD 55 
2539 003532 133333 WORD 133333 
2540 003534 -WORD 165555 
2541 133333 -WORD 133333 
2542 OO354O 1 .WORD 165555 
aa OOIE42 133333 WORD 133333 
2545 003544 000001 PATS: .WORD 000001 
2546 003646 000002 WORD 000002 
2547 000004 WORD 000004 
2548 000010 .WORD 000010 
2549 003564 .WORD 000020 
2550 000040 WORD 000040 
2551 003560 000100 .WORD 000100 
2552 000200 WORD 000200 
2553 003664 000400 .WORD 000400 
2554 001000 WORD 001000 
2656 003670 002000 WORD 002000 
2556 003672 004000 WORD 004000 
2567 003574 010000 WORD O 

2558 003576 020000 WORD 020000 
2569 003600 040000 WORD 040000 
= 003602 100000 WORD 100000 
2562 003604 177776 PATIO: .WORD 177776 
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COMMON TAGS 


PATTERN 7 


PATTERN 8 


PATTERN 9 


PATTERN 10 


SEQ 0047 
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163333 
066667 
153333 
066667 
153333 
066667 


09: 18 


JY 
READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 52 
COMMON TAGS 


PAT11: 


PAT12: 


PAT13: 


177775 


155555 
077777 


177776 
153333 


066667 


PATTERN 11 


PATTERN 12 


PATTERN 13 


SEEEFEEEPUPUREREVERURUUED EYER EPEREPPUREEEREREREERERE 55 


BRE 
wa 


& 
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003760 153333 -WORD 153333 
003762 066667 -WORD 066667 
003764 153333 -WORD 153333 
003766 066667 .WORD 066667 
3770 §=153333 -WORD 153333 
003772 066667 .WORD 066667 
3774) =153333 -WORD 153333 

003776 066667 -WORD 066667 
004000 153333 -WORD 153333 
004002 066667 -WORD 066667 
004004 000000 PAT14: .WORD 000000 ;PATTERN 14 

177777 .WORD 177777 
004010 177777 -WORD 177777 
008012 177777 -WORD 177777 
0040148 177777 -WORD 177777 
004016 177777 .WORD 177777 

177777 -WORD 177777 
004022 177777 -WORD 177777 
004024 177777 WORD 177777 
008026 177777 WORD 177777 
008030 17777 .WORD 177777 
OO4032 177777 WORD 177777 
OONO34 = 177777 WORD 177777 

177777 .WORD 177777 
OONO4O = 177777 -WORD 177777 
OO4042 177777 .WORD 177777 
OONO44S $= 177777 PAT15: .WORD 177777 +PATTERN 15 
0040%6 000000 .WORD 000000 
004050 000000 WORD 000000 
004052 000000 WORD 000000 
004054 000000 WORD 000000 

000000 WORD 000000 
00%060 000000 WORD 000000 
004062 000000 WORD 000000 
00%06% 000000 WORD 000000 
00%066 000000 WORD 000000 
004070 000000 WORD 000000 
004%072 000000 WORD 000000 
004074 000000 000000 
004076 000000 000000 
004100 000000 WORD 000000 
004102 000000 WORD 000000 

DPB (DATA PARAMETER BLOCK) 
004104 000 OPB.A: .BYTE OQ (0) DRIVE NUMBER 
004105 000 .BYTE QO +(1) OFFSET VALUE OR FMT22. ECI. AND HCI 
004 106 000 .BYTE 0 + (2) COMMAND 
004107 000 .BYTE 0 +(3) PSEL AND Al? AND Alb 
004110 000000 .WORD O +(4) WORD COUNT (MUST BE NEG. ) 
004112 047714 .WORD BUFFER + (6) BUFFER ADORESS OR 
REGISTER TABLE POINTER 
004114 000 BYTE +(10) SECTOR ADDRESS OR 
+FIRST REG. INDEX 





Pil 


004122 


& 2 RESRRE 


1 
i 


004 136 
004140 


004142 


000000 
004 204 


, oo 
N 
N™N 
NN 
—N 
eo 


2 
| 


000000 
004204 


DPB. B: 


OPB. C: 


. BYTE 


. WORD 
. WORD 


. WORD 


. WORD 
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SEQ 0050 
RACK ADDRESS OR 
INDEX 


PO4 
STERS ON . IF LEFT 
REGISTERS ARE NOT SAVED. 

) STATUS/ERROR INDICATOR 
15212 ,ERROR OCCURRED 
Orsi DONE 
4-B1TO9 AND BI T06-81TO3 
CATE TYPE OF ERROR 


sagae2e_ 
vw 
ay 
o) 
= 
3 


ORIVE NUMBER 
OFFSET VALUE OR FMT22. ECI. AND HCI 


WORD COUNT (MUST BE NEG. ) 
SS OR 


en 


RROR TABLE POINTER 


T 

R 

ty ADORESS 
S TO THE FIRST OF TWENTY 
\ WHE R 


—4+ Dz 
ons 


° 
z@ 
m 
a 
m 
a 
2 
: 


SAV 
) STATUS/ERROR INDICATOR 
15=1=>ERROR OCCURRED 
1=>DONE 


14-B1TO9 AND B1T06-B1TO3 
ICATE TYPE OF ERROR 


DRIVE NUMBER 
conre VALUE OR FMT22, ECI. AND HCI 
Pp 


_—-——-MMNOO-— 
—-O 
N 
Ty 
i 


eo rskasaece g2sse8e aA=— 


ae 

“Oo 

oF 3 
ZD 


8 ADOR 
STER TABLE POINTER 
TOR ADORESS OR 


—— = ME CWwWhH-O 
aia 
ran 
o 


“4 
wa 
R 
x 
8a 

inde 
Wn 
wn 
S 


CYLINDER ADDRESS 

ERROR TABLE POINTER 

° TO THE FIRST OF TWENTY 
1ONS OF WHERE THE DRIVER 

TO STORE THE RH11/RPO4 

GISTERS ON AN ERROR. IF LEFT 


A— pw 
Dz~~as~N~ — 
pa = a 


1 
1 
0 
0 
Ss 
E 
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+ ZERO REGISTERS ARE NOT SAVED. 
+ (16) STATUS/ERROR INDICATOR 
7 BITISsi=s>ERROR OCCURRED 

+B 1T07212>DONE 

7B1T14-B1TO9 AND B1T06-BITO3 
7 INDICATE TYPE OF ERROR 


NUMBER 
OFFSET VALUE OR FNT22. ECT. AND HCI 


AND Ai7 AND Al6 
DO COUNT (MUST BE NEG. ) 
ER RODRESS OR 

TABLE POINTER 
TOR ADDRESS OR 


—— = MP SCWNH-O 
—BDBOOw~wwww 
zrerstweGw~— 
od ao 


~ 


TO THE FIRST OF TWENTY 
ONS OF WHERE THE DRIVER 
TO STORE THE RH11/RPO4 
ISTERS ON AN ERROR. IF LEFT 
SAVED. 


) STATUS/E 

15=1=>ERROR OCCURRED 
7212) 

14-B1TO9 AND B1T06-B81TO3 
ICATE TYPE OF ERROR 


BSsoR 


kK 

CYLINDER ADDRESS 
soe TABLE POINTER 
1 


——=—Mmn 


Peer 


iL 
( 
;( 
iP 
HL 
; | 
:R 
4 
; 
8B 
;B 
8B 
i | 


+ SAVE RH11/7RPO4 REGISTERS HERE ON ERROR 
RP. REG: . #RPCS1 (776700) CONTROL & STATUS #1 
W 76702) WORD COUNT 


BUS ADDRESS 
POR (776706) DESIRED SECTOR/TRACK 
SRPCS2 (776710) CONTROL & STATUS #2 
+RPOS1 (776712) DISK STATUS 
7RPER1 (776714) ERROR REG. 41 
;RPAS (776716) ATTENTION SUMMARY 
LOOK AHERD 
DATA BUFFER 
MAINTAINABILITY 
ORIVE TYPE 
SERIAL NUMBER 
OF FSET 
DESIRED CYLINDER 
+RPCC (776736) CURRENT C Ree 
;RPERZ (776740) ERROR REG & 
+RPERI (776742) ERROR REG i 
+RPEC1 (776744) ECC POSITION 
+ RPEC2 (776746) ECC PATTERN 


oooooooo00e000000o0000o 
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sOFFLINE OR UNSAFE ORIVE REQUESTED 
UNLOAD the REQUESTED 

PERSISTENT UNSAFE 

+PARITY a OCCURRED 

+ FATAL PARITY ERR 

+ SOFTWARE TIMEOUT ON THIS DRIVE 

; TIMEOUT ON ANOTHER DRIVE 

ERROR OCCURRED DURING 1/0 OPERATION 

+ ERROR g 277~ Feat NON-170 OPERATION 


eo 
TOMATIC RECALIBRATE SEQUENCE OCCURRED 
IVE HAS NOT RESPONDED TO PORT REQUEST 
IVE HAS BECOME NONEXISTENT 


SEQ 0052 
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jon d .SBTTL ERROR POINTER TABLE 
2803 + STHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
2804 ;STHE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
2805 [LOCATION SITEMB. THIS NUMBER INDICATES pyar TEN L. i TABLE 1S PERTINENT. 
2806 + SNOTE1: iF SITERBS 1S O THE OMY 1S (SERRPC). 
oath + SNOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 
2809 ‘8 En +;POINTS TO THE ERROR ayo rh 
2810 ‘8 OH +;POINTS TO THE DATA HE 
2811 :8 OT +;POINTS TO THE DATA 
2812 eS OF +;POINTS TO THE DATA FORMAT 
2813 
2814 
2815 004306 SERRTB: 
2816 + SEN AND DH ARE ASCIZ mir ote 1S A STRING OF WORDS THAT POINT TO THE 
2817 + 3DATA TO BE TYPED AND OF IS A STRING OF DATA THAT TELL HOW THE DT WORDS 
2818 SARE TO BE TYPED. IF ANY OF the POINTERS ARE NOT NEEDED FOR A PARTICULAR 
2819 +RERROR IT IS REPLACED WITH A ZERO. 
2820 + SEACH OF THE ITEMS BELOW REFER TO THE ERROR NUMBER AND INDICATE 
2821 + 3THE INFORMATION THAT WILL BE TYPED WHEN THE ERROR OCCURS. 
ead + BUNLESS STATED OTHER ALL NUMBERS ARE OCTAL 
2824 +% ERROR ITEM 
2825 re RH11 INTERRUPT OCCURED (RPAS = 0) 
2826 8 ERR PC RPAS 
2827 eS SERRPC SREGS 
2828 
2829 306 044045 Eni 
2830 004310 045525 DH1 
2831 OO4312 047106 oT1 
2832 004314 047540 OF 1 
2833 
2834 +% ERROR ITEM 2 
2835 re UNEXPECTED ATTENTION OCCURRED 
2836 ik ERR PC ORIVE RPAS RPDS1 RPER1 RPERZ RPER3 
2837 eS SERRPC SREGi SREG3 RPERRS RPERRS+2 RPERRS+4 RPERRS+6 
2839 OO4316 044110 EN2 
2840 004320 045542 DH2 
2841 004322 047112 DT2 
2842 004324 047544 OF 2 
2843 
2844 *® ERROR ITEM 3 
2845 i* MASSBUS PARITY ERROR (MCPE=1) 
2846 i” TEST ERR PC ADDRESS DATA 
ae it STMPO SERRPC RD. ADR RD. WRO 
2849 004326 044146 EM3 

004330 045630 DH3 

004332 047130 OT3 

004334 047550 OF 3 


% ERROR ITEM 4 
A MASSBUS PARITY ERROR (PAR=1) 
‘ TEST ERR PC ADDRESS GDDATA BDDATA 


we ee ee 
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ERROR POINTER TABLE SEQ 0054 


STMPO 8 6SERRPC «WRT. ADR WRT. WO RD. WROD 


PEEEEEEEEER PEPE PEREEL ELE LL ELLE Bik 


BBB 
R-oO 


044203 En4 
045665 OH4 
047140 OT4 
047554 OF4 
ERROR ITEN 5 
ADDRESS PLUG CHANGE BIT SET 
ERR PC DRIVE RPAS RPDS1 RPERI RPERZ RPER3 
SERRPC SREGi SREG3 RPERRS RPERRS+2 RPERRS+4 RPERRS+6 
044237 ENS 
045542 DH2 
047112 DT2 
047544 DF 2 
ERROR ITEM 6 -- NOT USED 
004356 000000 0 
004360 000000 0 
004362 000000 0 
004364 000000 0 
+% ERROR ITEM 7 -- NOT USED 
004366 000000 0 
004370 000000 0 
004372 000000 0 
004374 000000 0 
+% ERROR ITEM 10 
re RH11/RPO4/5/6 FAILED TO RESPOND TO ADDRESSING 
i* RPCS1 ERR PC 
‘x RH ADR SERRPC 
004376 044273 EM10 
400 045734 DH10 
004402 047172 OT10 
004404 047 DF 10 
+&% ERROR ITEM 11 
re DRIVE SELECTED 1S NOT ONLINE 
re DRIVE ERR PC 
eS SREGZ2 SERRPC 
004406 044351 EM11 
004410 045753 DH11 
004412 047176 OT11 
004414 047564 DF 11 


+% ERROR ITEM 12 

ik IMPROPER HEADER DATA 

re TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
i* STMPO SERRPC SREGO CHKORV CYL.OS TRK.OS SEC. OS 
i% GOCYL GOTRK GDSCTR BOCYL BOTRK BODSCTR 
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rm CYL.OS TRK.OS SEC. OS CYL.RD TRK. RD SEC. RD 
eS CYLNDR. TRACK, AND SECTOR ARE DECIMAL 


004416 044406 ENI2 
004420 045772 DH12 
004422 047202 OT12 
004424 047570 2 


+% ERROR ITEM 13 

eS DATA COMPARE FAILURE 

re TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
ik STMPO SERRPC SREGO CHKDRV CYL.DOS TRK.OS SEC. DS 
re GODAT BODAT WROCNT GDADR B8DADR 

8 SGDDAT SBODAT SREGY  SGDADR SBDADR 

mS CYLNOR, TRACK. SECTOR, AND WROCNT ARE DECIMAL 


004426 044433 EM13 
004430 045772 DH12 
004432 047234 DT13 
004434 047 DF13 


*% ERROR ITEM 14 -- FOLLOWS #13 
| SGDDAT SBDDAT SREGY SGDADR SBDADR 


004436 000000 0 
004440 000000 0 
OO4442 047252 DT13A 
004444 047610 OF 14 
+& ERROR ITEM 15 
eS DATA COMPARE FAILURE 
rm TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
re STMPO SERRPC SREGO CHKORV CYL.OS TRK.DOS SEC. DS 
ix GODAT BDOAT WROCNT GODADR BDADR 
re SGDDAT SBODAT SREGY SGDADR SBDADR 
:% CYLNOR, TRACK, SECTOR. AND WROCNT ARE DECIMAL 
OO4446 044433 EM13 
004450 045772 
004452 047234 OT13 
047 OF 13 
+% ERROR ITEM 16 -- FOLLOWS #15 
ix SGDDAT SBDDAT SREGY SGDADR SBDADR 
004456 000000 0 
004460 000000 0 
004462 047252 OT13A 
004464 047610 OF 14 


% ERROR ITEM 17 

% DISK ERROR IN TiMING TEST 

x TEST ERR PC ORIVE RPCSi1_ RPDS1 RPER1 RPER2 RPER3 

‘ STMPO SERRPC CHKDRV RP.REG RP. REG+12 RP. REG+14 RP. REG+4O RP. REG+42 


004466 044460 EM17 


BSCS REESE Steet LL LELLLEA PEERS ERESET ERE REEL BER 
WP ee ee ee ee ee eet ot 
BWR=—OVOSnEeNnlUun-o N wVnd~= N an N wn 
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Pil 27-JUL-78 09: 18 ERROR POINTER TABLE - SEQ 0056 
004470 046206 DH17 
004472 047264 OT17 
004474 047614 OF 17 
+% ERROR ITEM 20 
re CLOCK (KW11-P) OVERFLOW IN TIMING TEST 
rm TEST ERR PC DRIVE RPCS1_ RPDSI RPER1 RPERZ RPER3 
eS STMPO SERRPC CHKORV RP. REG RP. REG+12 RP REG+14 RP. REGH4O RP. REG+42 
OC4476 044512 EN20 
O46 DH17 
004502 047264 OT17 
004504 047614 OF 17 
+% ERROR ITEM 21 
mS DATA COMPARE FAILURE 
re TEST ERR PC TST PC DRIVE CYLNOR TRACK 
re STMPO SERRPC SREGO CHKORV CYL.DS TRK.DS 
i? GDDAT BDDAT WRDCNT SECTOR 
re SREGi1 SBODAT SREGY SREGI 
re CYLINOR, TRACK, WROCNT, AND SECTOR ARE DECIMAL 
004506 044433 EM13 
004510 046304 DH21 
004512 047 OT21 
004514 047620 OF 21 
+&% ERROR ITEM 22--FOLLOWS #21 
eS SREGi1 SBODAT SREG4Y SREGI 
004516 000000 0 
004520 000000 0 
004522 047320 DOT21A 
004524 047630 DF 22 
*+® ERROR ITEM 23 
me DISK ERROR DURING SEEK 
mS TEST ERR PC DRIVE CYLNDR RPCSi RPCS2 RPDS1 
re STMPO SERRPC CHKDRV CYL.DS RP. REG RP. REG+10 RP. REG+12 
;% RPER1 RPERZ RPER3 RPCA RPC 
i* RP. REG+14 RP. REG+4O RP. REG+42 RP. REG+34 RP. REG+36 
004526 044561 EN23 
004530 046421 DH23 
004532 047330 DT23 
004534 047634 2 
+% ERROR ITEM 24 
rm SEEK NOT COMPLETE WITHIN 120 MS 
re TEST ERR PC DRIVE CYLNDOR RPCS1  RPCS2 RPDS1 
rm STMPO SERRPC CHKORV CYL.DS RP. REG RP. REG+10 RP. REG+12 
mS RPERI RPER2 RPER3 RPCA RPC 
mS RP. REG+14 RP. REG+4O RP. REG+42 RP. REG+34 RP. REG+36 


004536 044610 EN24 
004540 046421 DH23 
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004542 
004544 


004546 


004566 
004570 
004572 


27- JUL-78 


047330 
047634 


09: 18 ERROR POINTER TABLE 
0T23 
DOF 23 
++ SISTIAAIAAAAA ATTA AAALATAAA IAAL AAAA AAA AAATAAIATAIII TTT 777% 
+, SESSITIAAAALAAAAAALAAAALAAA ALAA AAA AAA AAA AAAAAAAAAA AAT IT 775% 
;% ERROR ITEMS 23-40 NOT USED 
+3 ERROR ITEMS 41-46 WILL HAVE AN EM THAT 
+3 VARIES DEPENDING ON THE ERROR. IT WILL BE IN THE FORNM: 
+3 RH11/RPO4/S/6 ERROR (MESSAGE) 
> | MESSAGE WILL ee OME OR MORE OF THE FOLLOWING: 
+3 1) OFFLI UNSAFE DRIVE REQUESTED 
+% 2) UNLOADED DRIVE REQUESTE 
+% 3) PERSISTENT UNSAFE 
+® 4) PRRITY yg OCCURRED 
+3 5) FATAL PARITY ERROR 
+% 6) SOFTWARE TIMEOUT ON THIS DRIVE 
+% 7) SOFTWARE TIMEOUT ON ANOTHER DRIVE 
+% 8) ERROR OCCURRED DURING |/0 OPERATION 
+% 9) ERROR OCCURRED DURING NON-1/0 OPERATION 
>% 10) UNSAFE OCCURRED 
+% 11) AUTOMATIC RECAL IBRATE SEQUENCE OCCURRED 
ITEM41: 
;&% ERROR ITEM 4 
;* RHI 1/RPO4/5/6 ERROR (MESSAGE ) 
;% TEST ERR PC TST PC ORIVE 
is STMPO SERRPC SREGO CHKDRV 
EM41 
DH4 1 
OT41 
OF 41 
7% ERROR ITEM 42 
;* RH11/RPO4/5/6 ERROR (MESSAGE) 
;k TEST ERR PC TST PC ODRIVE RPCS1 RPCS2 = RPODS1 
;* STMPO SERRPC SREGO CHKORV RP. REG RP. REG+10 RP. REG+12 
EM41 
DH42 
OT42 
OF 42 
7% ERROR ITEM 43 
;% RH11/RPO4/5/6 ERROR (MESSAGE) 
ik TEST ERR PC TST PC ODRIVE RPCS1 RPCS2 RPODS1 
;% STMPO SERRPC SREGO CHKORV RP. REG RP. REG+10 RP. REG+12 
fe | RPER1 RPERZ RPERS 
Pe | RP. REG+14 RP. REG+4O RP. REG+42 
EM41 
DH42 
OT43 
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CZR JAC. P11 27-JUL-78 09: 18 ERROR POINTER TABLE SEQ 0058 
3081 004574 047654 DF 43 
3082 
3083 +B ERROR ITEM 4 
3084 eS Rit 1 /RPON E76 ERROR (MESSAGE ) 
3085 re TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
3086 eS STMPO SERRPC SREGO CHKORV CYL.OS TRK. DS FSS OS 
3087 re RPCS1 RPCS2 RPDS! RPCC RPCA RPDA 
3088 rm RP. REG RP. REG+10 RP. REG+1Z RP. REG+36 RP. REG+34 RP. REG+O06 
3089 re RPERI RPERZ RPER 
3090 mS RP. REG+14 RP. REG+4O RP. REG+42 
pad] eS CYLNOR. TRACK. AND SECTOR ARE DECIMAL 
3093 004576 044650 EM41 
309% 004600 045772 DH12 
3095 004602 047432 DT44 
3096 004604 047664 DF 44 
3097 
3098 +®% ERROR ITEM 45 
3099 re RH11/RPO4/5/6 ERROR (MESSAGE ) 
3100 eS TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
3101 :% STMPO SERRPC SREGO CHKORV CYL.DS TRK.OS SEC. OS 
3102 i* RPCS1 RPCS2 RPDS! RPCC RPCA RPDA 
3103 me RP. REG RP. REG+10 RP. REG+12 RP. REG+36 RP. REG+34 RP. REG+06 
3104 ‘* RPERI RPERZ RPERS RPWC RPBA RPOB 
3105 mS RP. REG+14 RP. REG+4O RP. REG+42 RP. REG+2 RP. REG+4 RP. REG+22 
soe me CYLNOR. TRACK, AND SECTOR ARE DECIMAL 
108 004606 044650 EM41 
3109 004610 045772 DH12 
3110 004612 047472 OT4S 
ares 004614 047700 OF 4S 
3113 +% ERROR ITEM 46 
3114 re FATAL WRITE CHECK ERROR (MESSAGE) 
3115 ‘* TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
3116 i* STMPO SERRPC SREGO CHKORV CYL.DS TRK. DOS SEC. OS 
3117 re RPCS1 PCS2 RPDS! RPCC RPCA RPDA 
3118 ‘* RP. REG 38 REG+10 RP. REG+12 RP. REG+36 RP. REG+34 RP. REG+06 
3119 i* RPER1 RPERZ RPERS RPWC RPBA RPOB 
3120 Pe RP.REG+14 RP. REG+4O RP. REG+42 RP. REG+2 RP. REG+4 RP. REG+22 
aise mS CYLNOR. TRACK. AND SECTOR ARE DECIMAL 
3123 004616 044674 EM46 
3124 004620 045772 DH12 
3125 004622 047472 DT4S 
3126 004624 047700 DF 4S 
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.SBTTL START OF PROGRAN 


004626 012737 177777 001226 START3: Mov &-1, d#BUSADR +GET BUSADR FLAG 


004634 000402 BR STRTIA 
004636 005037 001226 START: CLR @#BUSAOR CLR BUSADR FLAG 
004642 005037 001224 STRTIA: CLR @aCNTRLC *#NO CONTROL “C" 
004646 000411 BR START 
004650 012737 177777 001226 STARTY: Mov #-1, @@BUSADR + SET BUSADR FLAG 
004656 000402 BR STRT2A 
004660 005037 001226 START2: CLR @#BUSADR CLR BUSADR FLAG 
004664 012737 177777 001224 STRT2A: Nov #-1, @8CNTRLC +SET CONTROL "C" FLAG 
004672 000005 START: RESET 
.SBTTL INITIALIZE THE COMMON TAGS 
+; CLEAR THE COMMON TAGS (SCNTAG) AREA 
004674 012706 001100 nov SSCNTAG. R6 +2FIRST LOCATION TO BE CLEARED 
004700 005026 CLR (R6)+ ++ CLEAR MEMORY LOCATION 
004702 022706 001140 CMP SUR. RG ; ; DONE? 
004706 001374 — -6 +; LOOP BACK IF NO 
004710 012706 001100 @STACK, SP ++SETUP THE STACK POINTER 
iG INITIALIZE A FEW VECTORS 
004%714% 012737 022610 000020 Mov SSSCOPE.Q8IOTVEC ;; 1OT VECTOR FOR SCOPE ROUTINE 
004722 012737 OOO340 000022 Mov #340, OS IOTVEC+2 ¢ LEVEL 7 
730 012737 017636 0000 Mov ASERROR. SHENTVEC > EMT VECTOR FOR ERROR ROUTINE 
7% 012737 OOOO 000032 MOV 8340. QGENTVEC+2 7; LEVEL 7 
004744 012737 023136 000034 Mov STRAP. QRTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
127 OOOO 000036 Mov €340, @8TRAPVEC+2; LEVEL 7 
004760 012737 176543 023610 Mov #176543.SHINUN ;; PRIME THE RANDOM NUMBER GENERATOR 
004766 0127 123456 023612 MoV #123456.SLONUN ;; BOTH HIGH AND LOW WORDS 
004774 005037 001204 CLR STIMES +; INITIALIZE NUMBER OF ITERATIONS 
006000 001206 CLR SESCAPE 44 te THE ESCAPE ON ERROR ADORESS 
005008 112737 000001 001115 MOVB #1, SERMAX +ALLOW ONE ERROR PER TEST 
005012 012737 005012 001106 Mov : - SLPAOR +; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
005020 012737 005020 001110 MOV - SLPERR + SETUP THE ERROR LOOP ADDRESS 
++SIZE FOR A HARDUARE SWITCH REGISTER. 1F NOT FOUND OR IT IS 
+;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
005026 013746 000004 Mov @HERRVEC.-(SP) ic; ERROR VECTOR 
005032 012737 005066 000004 MOV #64S. QBERRVEC -¢; SET UP ERROR VECTOR 
005040 012737 177570 001140 MoV #OSWR, SLR +2 SETUP FOR A HARDWARE SWICH REGISTER 
O060%6 012737 177570 001142 Mov #ODISP.DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
005054 022777 177777 174056 CMP 8-1, dSUR ++ TRY TO REFERENCE HARDWARE SUR 
006062 001012 BNE 665 +; BRANCH IF NO TIMEOUT TRAP OCCURRED 
+;AND THE HARDWARE SWR IS NOT = -1 
006064 000403 BR 65$ +¢BRANCH IF NO TIMEOUT 
006066 012716 005074 64S: MOV #65$. (SP) +2SET UP FOR TRAP RETURN 
006072 000002 RTI 
006074 012737 000176 001140 655: MoV #SWREG. SHR +2POINT TO SOFTWARE SWR 
006102 012737 000174 001142 Mov #01SPREG DISPLAY 
006110 000004 665: Mov (SP)+, @MERRVEC +; RESTORE ERROR VECTOR 
005114 012700 001160 MoV #SREGAD. RO +FIRST ADDRESS 
006120 005020 1$: CLR (RO)+ +CLEAR VARIABLE STORAGE 
006122 022700 001210 CMP #SBELL. RO ; DONE? 
005126 001374 BNE 1$ ; NO--BRANCH 
005130 013737 001414 001150 MOV OH TPS, @ASTPS ;SETUP THE STATUS AND BUFFER REG'S 
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005136 
005144 
005150 
005152 
005160 
005162 
005166 
005172 
005174 
005202 
005204 


005210 
005214 
005216 
005230 
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27-JUL-78 09: 


013737 
005227 
001032 
02 


001416 
177777 


047714 
000042 


000011 


044042 
044042 


001152 


000041 


000176 


001134 


001104 
034456 
000000 


177776 
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NITIALIZE THE COMMON TAGS SEQ 0060 


nov OtTPB, aeSTPB ;FOR THE TYPE ROUTINE 
INC a-1 sFIRST START 7? 
BNE 3$ 7BR_1F NOT 
chp 0842, d846 ;ACTI1 AUTOMATIC MODE? 
BNE 4 +YES. SKIP TITLE PRINTOUT 
TYPE - TITLE TYPE THE PROGRAM'S TITLE 
4$: TST 42 ;AUTO ACCEPT OR CHAIN MODE ? 
BNE 2$ +BR IF EITHER 
ChPB 811,41 +LORDED FROM AN RPO4/S/6 ? 
BNE 2s -BR IF NOT 
TYPE , LOAORV + INSTRUCT THE OPERATOR TO REMOVE THE PACK 
ON DRIVE O IF DRIVE O 8 TO BE TESTED 
2: TSTB on4) ;LOADED FROM PAPER TAPE ? 
BEQ 3$ +BR_ IF NOT 
JSR PC, $S1ZE +S1ZE THE MEMORY 
CMP SLSTAD. #100000 -16K OR MORE ON THE SYSTEM 7? 
BHIS +BR IF YES 
TYPE , NOLOAD ; INFORM THE OPEATOR THAT THE ‘XXDP* LOADER 
WILL BE OVERWRITTEN 
35: JSR PC. STKINT +; TURN ON THE TTY KEYBOARD INTERRUPT 
SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST 842 +: ARE WE RUNNING UNDER XXDP/ACT? 
BNE 67$ ++ BRANCH IF YES 
CMP SHR, @SWREG SOF THRE SWITCH REG SELECTED? 
BNE 68$ :; BRAN CH 
2h ons + GET SOFT- SWR SETTINGS 
rh MOVB #1, SAUTOB ++SET AUTO-MODE INDICATOR 
INC a-1 +SEE IF FIRST START 
BNE SRTINT BR IF NOT 
JSR PC, GETAOR ;GET OR CHECK THE RH11 ADDRESS 
SRTINT: TYPE - SCRLF + CR-LF 
JSR PC, @@LP. AVL CHECK FOR A LINE PRINTER 
CLR @aPs + ENSURE THE PRIORITY = O 
MoV #1, SI1CNT ;SET ITERATION COUNT TO 
JSR PC, @#GETSWR GO CHECK FOR CONTROL SWITCHES 
JSR PC. @aST. CLK + INITIALIZE THE CLOCK 
SETVEC: JSR PC, RP INIT + CHECK THE DRIVE STATUS 
MoV #-1, SAVEFG +SET THE SAVE geeienes FLAG 
ADD #-1,80 FIRST START ? 
BCC 11$ ‘BR IF YES 
TST CNTRLC + CONTROL 5» SWITCH SET ? 
BNE SRTORV + CONT | NUE YES 
115: MoV @PR7.PS +SET PRIORI try TO ? 
CLR R4 +DRIVE TABLE POINTER 
TYPE - SCRLF +CR-LF 
- TYPE » SYSTAT ; TYPE STATUS HEADING 
MOV R4,-(SP) +SAVE RY FOR TYPEOUT 
+2 TYPE DRIVE NUMBER 
TYPOS +:GO TYPE--OCTAL ASCII 
.BYTE 2 +i TYPE 2 DIGIT(S) 
.BYTE 0 +; SUPPRESS LEADING ZEROS 
TYPE - MSG. SP + SPACES 
TYPE - MSG. SP + SPACES 
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034370 


034400 


SESeSESCLELELSLCEEESEEELEUFEEEEROOEEES FESUEEEO OE! 
Bena 7 


043176 
043151 


043214 005550 
000001 034400 


005550 
034400 


005550 


005737 001224 


001222 


001232 


001220 


000041 
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VALUE FOR SOFTWARE SHITCH REGISTER 


25: 
3s: 
4§: 


55: 
6$: 


SRTORV: 


4$: 


5S: 


ORVSTACRY ) + CHECK ORIVE'S STATUS 
&S 7BR IF UNSAFE 
5$ BR IF OMI 
DRVTYP (RY) +SEE IF OFFLINE = NONE XI STENT 
2$ +BR IF NONEXIS 
3$ -BR IF OFFLINE 
, NOTRP DRIVE NOT AN RPOY/5/6 
+ CHECK NEXT DRI 
, NOTPRS DRIVE NOT PRESENT 
+ CHECK NEXT DRIVE 
- UNTOFF DRIVE OFFLINE 
+ PRINT DR IVE TYPE 
- NOTSAF DRIVE UNSAFE 
$ PRINT ORIVE TYPE 
UNT + DRIVE ONL INE 
- MSG + SPACES 
@RPONB, 8S + ADDRESS OF RPO MESSAGE 
#81 TOO, ORVTYP(RY) 7RPO4 ? 
7$ R IF YES 
@RPOS, 8S ; ADORE SS oF RPOS MESSAGE 
#B1TO1, ORVTYP(RY) ;RPOS ? 
7$ ; iF YE 
@RPOG. 8S + ADORESS OF RPO MESSAGE 
+ TYPE THE DRIVE TYPE MESSAGE 
+MESSAGE ADDRESS HERE 
- SCRLF 7 CR-LF 
4 + INCREMENT DRIVE NUMBER/TABLE POINTER 
R4, a8 ‘FINISHED ? 
1$ +BR_IF NOT 
PS +SET PRIORITY BACK TO 'O' 
Spain + CONT or, START/RESTART? 
SAVCSH, -(SP) ;GET THE PREVIOUS ‘C. SWR' CONTENTS 
C. SWR. (SP) +SET UP TO SEE IF MAM 1S DIFFERENT 
#8 1 TOO. (SP )+ :1S Hah J DIFFERENT ? 
9s BR IF NOT 
C. SWR,. SAVCSH +STORE PRESENT ‘C. SWR' VALUE 
PC. LODFLT +RESET PARAMETERS TO THEIR DEFAULT VALUES 
cee S08t. PRM +GET PARAMETERS 
PC, LODFLT + SETUP DEFAULT PARAMETERS 
DRVSEL +NO DRIVES SELECTED 
RO +DETERMINE THE DRIVES THAT 
#1,R1 +ARE AVAILABLE FOR TESTING 
ORVSTACRO) 


3$ 
+ aa hamatabtean 


R1 

2$ 

@#SEEKFG 
#SWO8. afc. S 


os SEEKF 
#11,41 
10$ 


+CLEAR SEEK FLAG 
+00 SEEK BEFORE DATA TRANSFER? 
to lan ANCH 


G 0 
+ LOADED FROM AN RPO4/S/6 ? 


‘BR IF NOT 





an 


EFECEELEEEE PER REE: 


g 
o 


piacere 
ESEDEDESEESEEEDURELUSUSGE SON0IS0 


& 


Peer Eber pit iepisiaeii id 


cal 


=3 


eb eee ot 


RR 


042737 
104401 
005037 


000001 
043233 
017550 
001232 
043264 


017366 


017550 


001232 


017542 


001234 


001256 
001232 


001232 


10$: 


7$: 
8$: 


RSTRT1: 


1$: 
RSTRT2: 


RESTART: 


DRVOK: 


1$: 
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09:24 PAGE 66 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


#6 | TOO. ORVSEL + CLEAR THE ORIVE O SELECTION BIT 
-ORIVES *DRIVES(S) TO BE TESTED’ 
SENOCT [DETERMINE PASSES TO MAKE AND 
RO >THE ORIVES TO BE TESTED 
@tORVSEL. R1 ;ANY ORIVES SELECTED? 
6$ + YES--BRANCH 
e > ‘NONE ' 
o@8 SE OP 760 TO END OF PROGRAM 
t ;REPORT THE ORIVES TO BE TESTED 
@#SENDCT ;GIVE THIS DRIVE A PASS 
RO. -( SP) +; SAVE RO FOR TYPEOUT 
;;60 betty Se ASCII 
t ep tes | 1 OIGIT(S) 
0 ; SUPPRESS LEADING ZEROS 
R1 ; OR IVES? 
8% ; NO--BRANCH 
*’ COMMA P) a “ 
Pr ; FORM DRIVE NUMBER 
@8SENOCT, A#SEOPCT 
@aCLKSTA to hl -P AVAILABLE 
RSTR YES--BRANCH 
#36000, aa TSTNMS :NO--ANY TIMING TESTS TO BE PERFORMED? 
RSTRT1 ; NO--BRANCH 
, NOCLOK : "NO KW11-P CLOCK. TIMING TESTS WILL NOT BE PERFORMED‘ 
DRVSEL ;ANY ORIVES SELECTED ? 
1$ ;BR IF YES 
START2 ;GET DRIVE SELECTION ENTRY 
CHKORV 7 INIT. THE CHECK DRIVE KEY 
#1. ORV ; START TO CHECK DESIRED DRIVES 
ORVMSK,.ORVSEL =; 1S THIS DRIVE SELECTED? 
VOK ; YES--GO CHECK IF DRIVE IS READY FOR TESTING 
@STACK, ;SETUP THE STACK POINTER 
CHKORV ;MOVE TO NEXT DRIVE NUMBER 
DR VMSK ;POSITION THE MASK 
RSTRT1 7 BRANCH IF THE DRIVE NUMBER NEEDS INITIALIZED 
RSTRT2 
CHKORV. RZ >PICKUP THE ORIVE NUMB 
ORVSTAC(R2) 71S DESIRED ORIVE ping oe 
1$ 7; YES. BRANCH 
11 ;ORIVE SELECTED !S NOT ONLINE 
ORVMSK.ORVSEL ;CLEAR DRIVE'S SELECTION BIT 
RESTART ; RETURN 
R2. a#OPB. A >SET THE ORIVE NUMBER INTO THE OPB'S 
, oars. 
R2, aeOPB. C 
2. aeOTADPB 
PC, d@LOCND ;LOAD COMMAND INTO DPB. B AND DPB. C 
SSEOP.@8BYPASS ; IF ERROR GO TO END OF PROGRAN 
@FNT22/256. .DPB.A+1 ;ASSUME 16 BIT FORMAT 
#81700. C. SWR 716 BIT FORMAT REQUESTED ? 
2$ ;BR IF YES 
OPB. A+1 ;CLEAR THE ‘FMT22' BIT 









FERERVEGHURHUOR 


i=] es2no ~“ 4 


3367 





Pi 


Ps 
29 
on 


27-JUL-78 09: 1 
112737 000143 004106 
004037 025034 
112737 000107 004106 
004037 025034 
104401 043361 
010246 
104403 

001 

00G 
104401 044042 
104401 043403 
012700 000004 
013701 004234 
006101 
006102 
006101 
006102 
006101 
006102 
006101 
0061 
062702 000060 
010227 
104401 006330 
00s 
003357 
104401 00121 


113737 


5 
001364 001115 


25: 


3$: 


4S: 
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8 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0063 


ae ee ore At2 ; SET THE FORMAT BIT PER DPB. Ati 
COMMAND 


RO, d8CALL. A 


0. aeCALL. A 
- TESTNG 
R2,-(SP) 


0 
- MSG SP 


» SERIAL 
#4,RO 
RP. REG+30. Ri 


#'°O.R2 
(PC )+ 


-4$ 
RO 


3$ 
- SCRLF 
ERR. CT, SERMAX 


GRECAL. a8DPB. A+Z e + RECAL =COMMAND 





+GO EXECUTE 


. ; 60 

+; TYPE 1 DIGITC(S) 

;; SUPPRESS LEADING ZEROS 
SPACES 


SERIAL NUMBER ° 
FOUR DIGITS TO TYPE 
+ SERIAL NUMBER 


;PUT THE NEXT DIGIT 
+ INTO R2 


+MAKE IT ASCII 
SAVE IT 


+ TYPE 
; ALL DIGITS TYPED? 
, NO 7 BR ANCH 


SETUP MAX ERROR COUNT 
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3382 
3383 
3384 


3417 
3419 


3435 
3436 
3437 


-SBTTL #888 TESTS #a88 


A es Se, ed, eed ees eee, eed ees ee, ees ee, ees ee, es es ee ee, 
ses es ees eed ee, ees ees ees eed ees es ees ee ees ees es es oe 
ses ee ees eed eed, ees ees ee, ees ed ees ees, ee, es ees eee es 


+31N THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
+ SAND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


Pe 

; merce VALUE VARIABLE 

1% 

7 3R 1 ITERATIONS (REPEATS) 

; SFC 0 FIRST CYLINDER ADDRESS 

7 8LC 410 OR 814% LAST CYLINDER ADDRESS 
KIC 1 oi. on VALUE 

73NC OF NC1 FC+IC NEW OR MODIFIED CYLINDER 
3 ROORRE 

7 5NC2Z LC-IC NEW OR MODIFIED CYLINDER 
+ AOORESS 

7; 3FT 0 FIRST TRACK ADORESS 
+B8LT 18 LAST TRACK ~~ 

IT 1 INCREMENT VALUE 

+ SNT FI+IT NEW OR MODIFIED TRACK ADDRESS 
,3FS 0 FIRST SECTOR ADDRESS 
+LS 21 LAST SECTOR ADDRESS 


+7: B/: B/: B27: B/: B/: BC: B/:- B/: B/: B/: B/: BC: B/: B/: BL: AC: KC: 
37: &B/: B/: B/: B/: B/: B/: B/: BC: BC: BL: B/S: BC: BA: BC: BS: HC: “B/: * 
37: B/: B/: B/: BC: B/: BC: B/: BC: BC: BC: B/S: B/: BC: BC: BL: BC: BS: 8 


. SBTTL . 48% SEEK TESTS 42% 


Ans, aed es es es es es ees es aes es es oes es es aes aes oe 
Ames es es oes, es ees es es es oes ees ees oe, ee oes aes aes oe 
ses, aes, oes ed es es es ed ees es es ee eee ee eee eee eee | 


;STHE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 

+ ZIMPLIED SEEKS WILL BE PERFORMED BY “READ HEADER AND 

7 SDATA” COMMANDS TO TRACK “FT” SECTOR "FS" OF THE DESIRED CYLINDER. 
;3THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND 

+ STRACK/SECTOR WORDS OF THE HEADER ARE READ. 


37: B/: B/: B/: B/: B/: B/: B/: B/: BC: B/: B/: BC: B/: B/S: BC: BC: RC: * 
t4: B/4: B/: B/: B/: B/: B/: B/: B/: BA: BA: B/: B/: BC: B/: B/: 2/7: “B/C: 
34: &/4: B/: B/: B/: B/: B/: BC: B/: B/: BC: BC: BS: BC: BC: BC: BC: A: * 


4s AERAAAAAAALAAAAA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA Ey 
TEST O RECAL/SEEK TEST 


, 
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Pil 27-JUL-78 09: 18 TO RECAL/SEEK TEST SEQ 0065 
re THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
re COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “LC” AT 
rm THE COMPLETION OF BOTH COMMANDS STATUS INDICATIONS ARE 
eS CHECKED TO ENSURE NO ERRORS OCCURRED. 
js SESSTAITATALALAAALAAAALAACLAAAAATAAATAAAALAAL AAA ALAAL ATTA T ATs 
006354 TSTO: 
006354 000240 NOP 
033737 001424 001234 BIT oa ners Memes +00 THIS TEST? 
006364 001002 BNE 64S YES-- BRANCH 
006366 000137 006516 JnP TSTi NO GO TO THE NEXT TEST 
006372 012737 O00000 001102 645: MoV #0, deststnn ;SET UP TEST NUMBER AND 
+ CLEAR THE ERROR FLAG (SERFLG) 
006400 004737 024612 JSR PC. LOOPRN +LORD THE PARMETERS FOR THE TEST 
006408 012737 006500 001110 Mov TESTO. @BSLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
006412 013777 001102 172522 Mov STSTNM. @DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
006420 013737 001506 001204 Mov @ERPT, STIMES +GET THE !TERATION COUNT 
006426 112737 1 001115 MOVs #25. , SERWAX MAX ERRORS ALLOWED FOR TEST 
0064348 112737 000107 004106 MO GRECAL, a80P8. A+Z + RECAL =COMMAND 
006482 113737 001 004134 MOvB O6FS, o00P8. B+10 > FS 
O06"S50 113737 001516 004135 MOVB OOF T. o00P8. B+11 FT 
006456 013737 001512 004136 MoV @8LC. o80PB. 8412 7 LC 
006464 012737 1% 001252 Mov #EXITO. @BBYPASS ;GO TO EXITO ON ERROR 
006472 012737 006500 001106 MoV TESTO. & + SETUP LOOP ADDRESS 
006500 012706 001100 TESTO: MOV @STACK. + SET UP STACK POINTER 
006508 004037 025034 JSR RO. @#CALL. A +GO EXECUTE THE COMMAND 
006510 004037 025146 JSR RO. @BCALL. B +GO EXECUTE THE COMMAND 
006514 000004 EXITO: SCOPE + LOOP 
+; RERSAAALALALAAALALTA AAA AAA ALAA TATA LALA LALA AAT AAAAELA Aa Se? 
+RTEST 1 SEEK/SEEK TEST 
i* THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
:% CYCLE TO "LC", “LT", "LS" FOLLOWED BY A REVERSE SEEK CYCLE TO 
re "FC", “FT", "FS". AT THE COMPLETION OF EACH SEEK. THE PROPER 
re INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
re "LC" WILL DEFAULT TO 128 AND "FC". “FT”. “LT”. “FS". AND “LS” 
mS WILL DEFAULT TO 0 
+; RERAAAARAAAAAAAA ASAT AA ALATA AAAAAAATALAA TATA TATA AAA ALATA AAA Ty 
006516 TST1: 
006516 000240 NOP 
006520 033737 001426 001234 BIT @#81TS+<1%2>, TSTNMS ;D0 THIS TEST? 
006526 001002 BNE 64S ; YES-- BRANCH 
006630 000137 006674 JP TST2 +NO--GO TO THE NEXT TEST 
006638 012737 g00001 001102 64S: MOV #1, @@STSTNM SET UP TEST NUMBER AND 
:; +CLEAR THE ERROR FLAG (SERFLG) 
0065452 004737 024612 JSR PC, LOOPRM +LOAD THE PARMETERS FOR THE TEST 
CO6646 012737 006656 001110 MOV @TEST1,@@SLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
OveSb4 3777 001102 172360 MOV STSTNM. DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY fonenen 
006562 3737 001506 001204 MoV @ERPT. STIMES +GET THE ITERATION COUNT 
006670 112737 000031 001115 MOvVB #25. . SERMAX MAX ERRORS PLLOHED FOR TEST 
006676 113737 001524 004134 MOVB @6FS, a80P8. B+10 -FS ‘ 
006608 113737 001526 004154 MOVB @4LS, a80P8. C+10 LS ; 
006612 113737 001516 004135 MOVB OsFT, @80PB. B+11 7 FT 


3521 
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Pil 27-JU-78 09: 18 SEEK/SEEK TEST SEQ 0066 
006620 113737 001520 004155 nove @OLT. o00P8. C+11 FLT 
006626 013737 001510 004136 nov OFC. o00P8. 6412 5 FC 
006638 013737 001512 004156 nov @OLC, o00P8. (+12 [LC 
006642 012737 006672 001252 nov SEXIT1. a8BYPASS ;GO TO EXiT1 ON ERROR 
006650 012737 006656 001106 MOV STESTI1.&PAOR ;SETUP LOOP ADDRESS 
006656 012706 001100 TESTi: MoV OSTACK. $ +SET THE STACK POINTER 
006662 00% 025336 JSR RO. @OCALL. C +GO EXECUTE THE COMMAND 
006666 004037 025146 JSR RO. @eCALL. B G0 EXECUTE THE COMMAND 
006672 EXITi: SCOPE aS 
+; SERSIAATALALALAL ALAA TALL ATAA ALAA AALALAAAALAL AAT AAAA ATTA T ATs 1s 
+BTEST 2 INCREMENT/SEEK TEST 
re THIS TEST WILL COPPMIAND FORWARD SEEK CYCLES TO ADVANCE THE 
rm CYLINDER ADORESS FROM “FC” TO “LC“ BY THE INCREMENT “IC™. 
re WHEN THE RESULTANT CYLINDER ADORESS (NC) EXCEEDS 
re “LC” REVERSE SEEK CYCLES ARE INITIATED: STARTING 
re AT THE LAST LEGAL “NC” AND DECREMENTING BY “IC” 
re UNTIL “NC” I$ LESS THAN “FC”. AT THE COMPLETION OF EACH 
re SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
;% ENSURE PROPER OPERATION. 
+; RERTALALALIAAALALATAAAAASALALAAA ALATA LALA ASA AAA AAAs 
006674 TST2: 
006674 240 NOP 
006676 033737 001430 001234 BIT 9 hinatcaneci TSTNMS ;00 THIS TEST? 
00670" 001002 BNE 64S ; YES--BRANCH 
006706 000137 007112 JnP TST3 +NO--GO TO THE NEXT TEST 
006712 012737 000002 001102 645: Mov #2. @@STSTNM ;SET UP TEST NUMBER AND 
*CLEAR THE ERROR FLAG (SERFLG) 
006720 737 024612 JSR PC. LOOPRM +LOAD THE PARMETERS FOR THE TEST 
006724 012737 00 001110 MoV TEST2., @RSLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
006732 01 001102 172202 Mov STSTNM. @DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
006740 013737 1 001204 Mov @eRPT. STIMES +GET THE ITERATION COUNT 
006746 112737 1 001115 MOVB #25. . SERMAX +MAX ERRORS ALLOWED FOR TEST 
006754 012737 762 001106 Mov #15. SLPAOR +SETUP LOOP ADDRESS 
006762 113737 001524 O04134 15: MOvB @sFS. o00P6. B+10 -FS 
006770 113737 001516 004135 MOVB FT, @@0P6. B+11 FT 
006776 012737 007110 001252 MOV @EXIT2. @ABYPASS ;GO TO EXIT2 ON ERROR 
007008 013737 001510 O04%136 TEST2: Mov @nFC, @80PB. 8412 -F 
007012 012737 007012 001110 MoV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
007020 01 001100 MoV @STACK. SP +LORD THE STACK POINTER 
007024 INCSK: 
007024 O37 025146 JSR RO. @ACALL. B +GO EXECUTE THE COMMAND 
007030 063737 001514 004136 ADD a#iC, a@0P6. B+12 ; MOVE TO NEXT CYLINDER 
007036 37 001512 004136 CMP @#LC, @80PB. B+12 ; OUT OF CYLINDERS? 
007044 7 BGE INCSK + NO--BRANCH 
0070%6 013737 001512 004136 MOV @ALC, O80PB. B+12 
007064 012737 001110 MOV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
007062 012706 001100 MoV STACK. SP +LOAD THE STACK POINTER 
007066 DECSK: 
O07 0s 037 025146 JSR RO. @ACALL. B +GO EXECUTE THE COMMAND 
007072 163737 001514 004136 SUB a8 iC, a80PB8. B+12 
007100 3737 001510 004136 CMP @nFC, @80PB. B+12 
007106 003767 BLE DECSK 
007110 EXiT2: SCOPE + LOOP 
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000240 
033737 
001002 
000137 
012737 


004 136 
025146 
001512 


001434 


007674 
000004 


001234 


001102 


oe ee ne et 


sgesesssss 
oat et 


ae 
ee 
a 
oO 


001234 


001102 


INCREMENT/SEEK TEST 


iG ag aes cee ae 
+BTEST 3 STEPPING SEEK TEST 


‘8 THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0.1.2.4. 
re 8. 16. 32.64.128. AND 256. AT THE COMPLETION OF EACH SEEK 
+ ten PROPER INDICATORS PRE EXAMINED TO ENSURE PROPER 


. . _) ARR ER Reino naam san crmmnRe ett hintaan aa ACR 


BIT 088 1TS+<322>, TSTNNS ;D0 THIS TEST? 
64S ; YES--BRANC 


; H 
JP TST4 :NO--GO TO THE NEXT TEST 
645: MoV #3. @aSTSTNA +SET UP _TEST NUMBER AND 

+ CLEAR THE ERROR FLAG (SERFLG) 
JSR PC, LOOPRA [LOAD THE PARMETERS FOR THE TEST 
MOV STEST3.@BSLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
Mov STSTNM. @DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 


MoV @ERPT, STIMES +GET THE ITERATION COUNT 
Move #25. . SERMAX 7;MAX ERRORS ALLOWED FOR TEST 
MoV #15. SLPAOR + SETUP TEST LOOP ADDRESS 

18: MOVB @GFS. a00P8. B+10 -FS 
Move OFT, o00P6. B+11 FT 


. iF 
MoV #EXIT3, aMBYPASS ;GO TO BYPASS ON ERROR 
TEST3: MOV @nFC, o80PB. 8412 > FC 


MoV @. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
MoV @STACK, SP LOAD THE STACK POINTER 
JSR RO. @aCALL. B ‘60 EXECUTE THE COMMAND 
MoV 1c, R1 CYLINDER 1 
Mov #. , SLPERR ; SETUP THE ERROR LOOP ADDRESS 
MoV aSTACK, SP LOAD THE STACK POINTER 
18: MoV Ri. a#OPB. B+12 DESIRED CYLINDER 
JSR RO, @ACALL. B +GO EXECUTE THE COMMAND 
ASL R1 Hoe S TO NEXT CYLINDER 
CMP R1, aA#LC +0 
BLE i$ NOW“ LOOP 
EXIT3: SCOPE 
+; RERAATAAAAAA AAA ALALA ALAA AAA AAA AAA AAA AAA AAA ALATA AAA AAA TATA Ay 
saTEST 4 OSCILLATING SEEK TEST 


:* THIS TEST WILL COMMAND SEEK CYCLES FROM "FC" TO "NC" AND BACK 
re TO “FC”. "NC" STARTS AT "FC" AND INCREMENTS BY “IC" UP TO CYLINDER 
i "LC", THEN IS DECREMENTED BY "IC" BACK TO CYLINDER “FC”. AT THE 
re COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
eS EXAMINED TO ENSURE PROPER OPERATION. 
| naa antae pee. -uameeeemememmnautumeacmmnmmeie: 
NOP 
BIT O88 1TS+<422>. TSTNMS ;00 THIS TEST? 
BNE 64S + YES--BRANCH 
JMP TST5 +NO--GO TO THE NEXT TEST 


645: MoV #4, @#STSTNM + SET UP TEST NUMBER AND 





SEQ 0067 


8 
RR 


eeeeEee 


sets 
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K TEST SEQ 0068 


CLEAR THE ERROR FLAG (SERFLG) 
OAD THE PAR 


RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052 
Pil 27-JUL-78 09: 18 T4 OSCILLATING SEE 


007332 004737 024612 JSR PC, LODPRA aL METERS FOR THE TEST 
007336 012737 007432 001110 nov GTESTY. QBSLPERR +; SETUP THE LOOP ON ERROR ADDRESS 
007344 01 001102 171570 nov STSTNM. @DISPLAY ; LOAD THE TEST R INTO THE DISPLAY REGISTER 

7352 013737 001204 Mov geet STINES +GET THE ITERATION COUNT 
007360 112737 001115 MOvVB €25. . SERMAX + MAX ERRORS ALLOWED FOR TEST 
007366 012737 007374 001106 nov #15, SLPAOR + SETUP LOOP ADDRESS 
007378 113737 24 OO4134 15: MOVB @tFS, o80P8. 8410 7 FS 

7402 113737 001516 004135 MOVB OOFT, a00P8. B+11 7 FT 
007410 012737 007672 001252 MoV SEXIT4, @BBYPASS ;GO TO EXITY ON ERROR 
007416 005002 CLR RZ +CLEAR STALL SWITCH (NO STALL) 
007420 032737 010000 001220 BIT @SW1Z, aC. SHR; STALL REQUIRED? 
007426 001401 BEQ TEST4 + NO--BRANCH 
007430 005102 con R2 ; YES--SET SWITCH 
007432 013701 001510 TEST4: MOV @aFC.R1 +SET NC TO FC 
007436 005037 001336 CLR @#STALLO START AT ZERO IF STALLS REQUIRED 
0074482 012737 007442 001110 MoV &. , SLPERR : SETUP THE ERROR LOOP ADDRESS 
007450 012706 001100 Mov @STACK, $ LORD THE STACK POINTER 
007464 010137 004136 1$: MoV Ri. @#OPB. B+12 
007460 004037 025146 JSR RO. @ACALL. B 60 EXECUTE THE COMMAND 
007464 005702 TST R2 + STALL? 
007466 001403 BEQ 2$ + NO--BRANCH 
007470 004037 026366 JSR RO. @#STALL +YES-GO TO STALL ROUTINE 
007474 001336 .WORD STALLO + TIME POINTER 
007476 013737 001510 004136 23%: MoV FC. @80P8.6+12 ; 
007504 00% 025146 JSR RO. @ACALL. B +GO EXECUTE THE COMMAND 
007510 005 TST R2 + STALL? 
007512 001413 BEQ 3$ + NO--BRANCH 
007514 004037 026366 JSR RO. @#STALL ; YES--GO TO STALL ROUTINE 
007520 001336 .WORD STALLO + TIME POINTER 
007522 006237 001336 INC @*#STALLO ;UPDATE THE TIME 
007626 023737 001362 001336 CMP QEMXSTAL, AASTALLO ; TIME TO BIG? 
007534 003347 BGT 1$ ; NO--BRANCH 
007536 005037 001336 CLR @#STALLO ;YES--START OVER AT ZERO 
007642 063701 001514 3: ADD a ic. R1 +MOVE TO NEXT CYLINDER 
007646 020137 001512 CMP R1, @aLC +LAST CYLINDER COMPLETED? 
007552 003740 BLE 1$ + NO--BRANCH 
007564 013701 001512 MoV @ALC. R1 +SET NC TO LC 
007660 012737 007560 001110 MoV #. . SLPERR +SETUP THE ERROR LOOP ADDRESS 
007566 012706 001100 MoV @STACK, SP ‘LOAD THE STACK POINTER 
007672 010137 004136 4$: MoV R1, o#OPB. ons NC 
007676 004037 025146 JSR RO. @ACALL. B ; 60 EXECUTE THE COMMAND 
007602 006702 TST R2 + STALL? 
00760" 001403 BEQ 5$ ;NO--BRANCH 
007606 004037 026366 JSR RO. @ASTALL + YES--GO TO STALL ROUTINE 
007612 001336 .WORD STALLO + TIME POINTER 
007614 013737 001512 004136 5%: MOV OALC, #OPB. B+12 - LC 
007622 004037 025146 JSR RO. @ACALL. B ;GO EXECUTE THE COMMAND 
007626 006702 TST R2 + STALL? 
007630 001413 BEQ 6$ ; NO--BRANCH 
007632 004037 026366 JSR RO. @#STALL +YES--GO TO STALL ROUTINE 
007636 001336 .WORD STALLO + TIME POINTER 
otha 005237 001336 INC @#STALLO ;UPDATE STALL TIME 

4% 023737 001362 001336 CMP @AMXSTAL, @ASTALLO ; TIME TOO BIG? 

007652 003347 BGT 4§ ; NO-- BRANCH 
007654 001336 CLR @#STALLO ;YES--SET STALL TIME BACK TO ZERO 
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’ 4 CYL INDER 


oar 
NOe<BRANCH 
EXIT4: SCOPE + LOOP 


+; SESTATAAATASAAAA LALA ALATA LALA ATTA ATAL AAA ALATA SSSA ET TI sss 
+STEST 5 CONVERGING/DIVERGING SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND 


30A( 1052) 
OSCILLATING SEEK 
6$: SUB onic. Ri 

Ri. aeFC 
4$ 


BY “IC” AND "NC2" WILL BE DECREMENTED BY “IC™ ea 
AL UE “NC2" AND “ 


RT 1S 
LESS THAN THE INITIAL VALUE OF "NC1". AT THE COMPLETION OF 
EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION “NCI” AND “NC2" DEFAULT TO 


Pi 
po fad 
eathe 
3 
z 
2 
B 
e 


Re Be Be Be Be Be Be Ve 


OO utara lect erate hi ident iether. 


BIT 2881 TS+<522)>, 7 +D0 THIS TEST? 
64S YES--BRANCH 


JMP TST6 ;NO--GO TO THE NEXT TEST 
645: MoV #5, aaSTSTNA SET UP TEST NUMBER AND 
; CLEAR THE ERROR FLAG (SERFLG) 
JSR PC, LODPRM +LOAD THE PARMETERS FOR THE TEST 
nov TESTS. @RSLPERR ; SETUP THE LOOP ON ER 
MoV STSTNM. @DISPLAY ;LOAO THE TES 
T. STIMES GET THE ITERATION COUNT 


Vv @ORPT. STI ; 
MOVB #25.. +MAX ERRORS ALLOWED FOR TEST 
MoV #15. SLPAOR + SETUP LOOP ADDRESS 
1$: MOvVB OFS. a80P8. B+10 -FS 
MOvVB OaFT, @80PB. B+11 FT 
MoV #EXITS. ARBYPASS ;GO TO EXITS ON ERROR 
TESTS: MOV onFC.R1 START NC1 AT FC 
MoV @OLC. RZ + START NC2 AT LC 
MoV #. . SLPERR + SETUP THE ERROR LOOP ADDRESS 
MoV aSTACK, SP +LOAD THE STACK POINTER 
1$: MOV Ri. o#OPB. B+12 


+NC1 
JSR RO. @ACALL. B +GO EXECUTE THE COMMAND 
JSR RO. @ACALL. B ; 60 atts THE COMMAND 


ADD onic. R1 +NEXT Ni 

SUB oF iC. RZ +NEXT NC2 

CMP R1, @aLC + DONE? 

BGT EXITS + YES--BRANCH 

CMP R2. @8FC >? 

BGE 1s + NO--BRANCH 
EXITS: SCOPE + LOOP 
+s AEAAAAARAAAA AAA AAAS A AAA AAA AAAS AAA AAA AAA AAA ATA AAA AAAs 
+ TEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 
re IN THIS TEST A SEEK IS DONE TO CYL "NC" THEN A SEEK TO 
:* NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5. NOW "NC" IS UPDATED 
‘*% BY "IC" AND THE ABOVE SEQUENCE IS REPEATED UNITL “LC” IS 


REVERSE 
SEEKS FROM “NC1" AND “NC2” RESPECTIVELY. “NC1" WILL a tenets 


ROR ADORESS 
T voi INTO THE DISPLAY REGISTER 
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fo ueree BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF “NC” 
T THE COMPLETION OF EACH SEEK COMMAND THE 
PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


; a aan teeta aia eet hee: 


’ 
’ 
’ 


01 

010074 000240 NOP 

010076 033737 001440 001234 BIT 048 1TS+<622>, eae +00 THIS TEST? 
010104 001002 BNE 64 .) YES--BRANCH 

010106 000137 010340 JP TST NO--GO TO THE NEXT TEST 


010112 012737 000006 001102 64%: nov be. OPS TSTNN ;SET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 


010120 024612 JSR PC, LODPRA +LORAD THE PARMETERS FOR THE TEST 

24 012737 010204 001110 MoV GTEST6. ARSLPERR > SETUP THE LOOP ON ERROR ADDRESS 
010132 013777 001102 171002 Mov STSTNM. @DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
010140 013737 001 001204 Mov @ERPT, STIMES +GET THE ITERATION COUNT 
010146 112737 001115 MOVB #25. . MAX ERRORS ALLOWED FOR TEST 
010154 012737 010162 001106 Mov #15, SLPAOR + SETUP LOOP 
010162 113737 001524 OO4134 15 MOvVB @8FS, a80PB. 8410 -FS 
010170 113737 001516 004135 MOvB @sFT. @#OPB. B+11 FT 
010176 012737 010336 001252 Mov #EXIT6. SRBYPASS ;GO TO EXIT6 ON ERROR 

013701 001510 TEST6: MOV anFC.R1 PICKUP “FC” 

010210 013702 001512 MoV @aLC, +FORM LAST CYLINOER THAT 
010214 162702 000005 SUB #5.R2 + 1S AVAILABLE FOR TESTING 
010220 012737 010220 001110 MoV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
010226 012706 001100 MoV @STACK. SP +LOAD THE STACK POINTER 
010232 020102 1$: CMP R1,R2 LAST CYLINDER 
010234 003040 BGT EXIT6 + YES--BRANCH 
010236 010137 004136 MoV R1, @eOPB. B+12 NC 
010242 O04%037 025146 JSR RO. @@CALL. B 60, pace THE COMMAND 
010246 062737 000004 004136 ADD #4, @80PB. B+12 
010254 004037 025146 JSR RO. @#CALL. B 60 "EXECUTE THE COMMAND 
010260 162737 000003 004136 SUB #3. e#0PB. B+12 
010266 004037 025146 JSR RO. CALL. B ;GO * EXECUTE THE COMMAND 
010272 062737 000002 004136 ADD #2, @#OPB B+12 NC+3 
010300 004037 025146 JSR RO. @@CALL. B GO EXECUTE THE COMMAND 
010308 162737 000001 004136 SUB #1. a#0PB. B+12 NC+2 
010312 OO4037 025146 JSR RO. @#CALL. B : 60 EXECUTE THE COMMAND 
010316 062737 000003 004136 ADD #3, o#OPB. B+12 + 
01032% 004037 025146 JSR RO. @#CALL. B ‘G0 EXECUTE THE COMMAND 
010330 063701 001514 ADD anic.R1 
010334 736 BR 1s 
010336 000004 EXIiT6: SCOPE + LOOP 


++ RERAAAAAAAARAAAAAAAA SALA AAA AA AAA AAAA AAAS AAAA AAA AAA AAA AAA ax 
EST 7 RANDOM SEEK TEST 


‘ 


THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC’ 

LC’. AFTER EACH SEEK. THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR 4° THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
THE TRACK ADDRESS |S INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
OF POSITIONING OCCURS USING ore HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARANTERS ‘FT’ AND 


ue cata eat iat aleatatan iat ai 
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3774 010340 000240 NOP 

3775 O10342 033737 001442 001234 BIT Ot BITS#<722>. TSTNMS ;DO THIS TEST? 

3776 010350 001002 BNE b* Ms ; YES--BRANCH 

3777 010352 000137 010720 JnP TST10 ;NO--GO TO THE NEXT TEST 

3778 010356 012737 000007 001102 64% nov a7, SesTsTNn ;SET UP_TEST NUMBER AND 

3779 CLEAR THE ERROR FLAG (SERFLG) 

3780 010364 004737 024612 JSR PC. LODPRN LOAD THE PARMETERS FOR THE TEST 

3781 010370 012737 010462 001110 nov STEST7. @BSLPERR ; SETUP THE LOOP ON ERR 

3782 010376 013777 001102 170536 nov STNM. 2DISPLAY ; LOAD THE TEST MUMBER INTO THE DISPLAY REGISTER 

3783 013737 001204 nov @ERPT, STINES ‘GET THE ITERATION C 

3784 010412 112737 001115 nove ’ ; MAX ERRORS ALLOWED FOR TEST 

3785 010420 11 001516 004135 Move FT. OPB. B+11 LOAD STARTING TRACK ADORESS 

3786 010426 112737 1 004 106 nove @SEEK. 80P8. A+2 ; SEEK=COMMAND 

3787 O10434 112737 000173 004126 MOvB GREADHO.DPB.8+2 + READ HEADER & DATA COMMAND 

3788 010442 0 nov RPROR. RY UNIBUS ADORESS OF THE RH11 

3789 0108486 012737 010716 001252 Mov #€X1T7. BYPASS TERROR TERMINATION ADORESS 

3790 010454 37 001106 MoV @TEST7,SLPADR ;SETUP THE LOOP ON TEST ADDRESS 

3791 010462 0 TEST7: MOV aSTACK. $ +SETUP THE STACK POINTER 

3792 010866 013737 001510 004136 Mov FC, OPB. B+12 + INITIAL CYLINDER ADORESS 

3793 010878 023737 001510 001512 CMP FC.LC +CYLINDER LIMITS THE SAME 7? 

379% 010502 001422 BEQ i BR I ARE 

37% «(0 ? 023512 JSR P CYCYLE THE RANDOM NUMBER GENERATOR 
37% 010510 013746 023610 Mov SH INUM, -( SP) ;USE THE HIGH RANDOM NUMBER 
3797 010514 CLR =¢ ; UPPER DIVIDEND 
3798 010516 013746 001512 Mov LC. -(SP) + FORM THE DIVISOR 
3799 0 INC (SP) + INCREMENT 
3800 010524 163716 001510 SUB FC, (SP) + SUBTRACT THE LOWER LIMIT 
3801 010530 7? 023614 JSR PC. $01 + DIVIDE 
3802 010534 062637 004136 ADD hal B+12 ;ADD THE REMAINDER TO THE INITIAL CYLINDER 
3803 010540 005726 TST (SP DISCARD THE QUOTENT 
3804 x cess 013737 004136 004116 - Mov DPB. oe12 DPB. A+12 ;COPY NEW CYLINDER ADDRESS 
3806 010550 012737 010550 001110 MOV #. , SLPERR + SETUP THE ERROR LOOP ADORESS 
3807 010566 012706 001100 Mov STACK, SP +LORD THE STACK POINTER 
3808 010562 004037 025034 JSR RO. @ACALL. A +GO EXECUTE THE COMMAND 
3809 010566 012737 010566 001110 MoV #. , SLPERR ‘SETUP THE ERROR LOOP ADORESS 
3810 010574 012706 001100 MOV @STACK. SP LOAD THE STACK POINTER 
3811 010600 113764 004104 000010 MOVB OPB. A. RPCS2(R4) ; SELECT THE DRIVE 
3812 010606 016446 000020 MoV RPLACR4Y).-(SP) ;GET THE LOOK A REGISTER 
3813 010612 006316 ASL (SP) ALIGN THE SECTOR ADDRESS 
3814 010618 006316 ASL (SP) +ALIGN THE SEC SS 
3815 010616 000316 SWAB (SP) +PUT_ADORESS IN LOWER BYTE 
3816 010620 105766 000001 TSTB 1(SP) + IN THE 1ST 20% OF SECTOR 
3817 010624 001401 BEQ 2s +BR IF YES 
3818 010626 105216 INCB (SP) + INCREMENT THE SECTOR ADDRESS 
3819 010630 105216 2s: INCB (SP) + INCREMENT THE SECTOR ADDRESS 
3820 010632 112637 004174 Move (SP )+, OTADPB+10 -LOAD THE DPB 
3821 010636 013746 001630 MOV PRALMT+22,-(SP) ;PUT LAST SECTOR ADDRESS ON THE STACK 
3822 010642 006216 INC (SP) + INCREMENT 
3823 010644 122637 004174 CMPB (SP)+, DTADPB+10 ;NEW SECTOR ADDRESS TOO LARGE ? 
3824 010660 103007 BHIS 4§ i F NOT 
3825 010652 103403 BLO 3$ +BR IF ADDRESS IS 2 GREATER 
3826 010664 105037 004174 CLRB DTADPB+10 RESET TO SECTOR ADDRESS O 
3827 010660 000403 BR 4§ + CONT | NUE 
3828 010662 112737 000001 004174 3%: MOVB #1, OTADPB+10 [RESET ADDRESS TO SECTOR 1 
3829 010670 4§: 
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3830 010670 004037 025146 ISR RO. @OCALL. B +GO EXECUTE THE COMMAND 

3831 010678 105237 004135 INCB DPB. B+11 INCREMENT THE TRACK ADDRESS 
3832 010700 123737 004135 001520 ChPB AT wee LT + MAXI AION 

3833 010706 101403 BLOS EX 7BR IF f NOT 

3834 010710 113737 001516 004135 nOvVB FT. OB. B+11 RELOAD STARTING TRACK ADDRESS 
3835 010716 000004 EXIT7: SCOPE LOOP ? 

3836 

3837 

3838 


oa” win aint anne 


=e ;STEST 10 SERVO SETTLE DOWN 

3841 re THIS TEST py gh dy THAT THE SERVO HAS SETTLED DOWN AND THAT 

3842 ;% THE ORIVE 1S ON CYLINDER WHEN THE DRIVE INDICATES SEEK y= 

3843 re E ISSUED BETWEEN CYLINDERS ‘NC1' AND ‘NCI+IC‘ 

3844 ;8 ('NC1" STARTS AT VAL ‘FC’. HE COMPLETION OF 1000 (10) SEEKS. 
3845 :8 "NC1’ 1S INCREMENTED BY VALUE ‘IC’ THE SEQUENCE IS REPEATED. 

os + THE TEST 1S COMPLETED WHEN ‘NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 
3848 :% WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DORIVE'S LOOK-AHEAD 
3849 re ere leree (RPLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
3850 re POSITION THE - THEN ISSUES A WRITE HEADER DATA COMMAND 
3851 ;* FOR THAT SECTOR. F THE ORIVE'S POSITIONER HAS NOT SETTLED DOWN OR 
3852 ;% 1F THE POSITIONER 1s NOT ON CYLINDER (IF THE DRIVE IS AN RPOS. THE 
3853 re OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 US). THE ORI 

3854 fe i WILL REPORT A ‘WRU’ ERROR. (RPOS/6'S MAY ALSO REPORT ‘NHS’ ERROR UNDE 
3855 ;*% ERRORS IN THIS TEST en THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 
3856 ;*% CORRECTLY. THAT THE DRIVE 1S MALFUNCTIONING. OR THAT A PACK WIT 

3857 + MARGINAL SERVO TRACKS |S MOUNTED ON THE DRIVE. 

3859 ;% THIS TEST USES THE EXTENTION BITS IN THE LOOK-AHEAD REGISTER TO DETERMINE 
3860 ;% THER OR NOT IT CAN PICK UP THE SECTOR ROTATING INTO POSIT! 

3861 ;* TEST 1S OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN 
3862 ;* THE FIRST 80% OF THE SECTOR CURRENTLY UNDER THE HEAD. THE TEST WILL 
3863 re TRY TO ADDRESS THE NEXT SECTOR. BASED ON OBSERVATION. THE PROGRAM 
3864 ;* 1S ABLE TO START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF 
oe 7 THE TIME. 

3867 ;% THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A eee 
3868 i HUNDRED MICRO-SECONOS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
3869 re TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED 
thy re RANGE TO PERMIT THIS TEST TO BE EFFECTIVE. 

3872 2 RESAAAAAARAAATAAAAAAAATA TATA AAA TAAA ALARA AAA AAA AAA AAA AAA TX 

3873 010720 TST10: 

3874 010720 000240 NOP 

3876 010722 033737 O01444 001234 BIT a8 1TS+<10%2>, vores ;00 THIS TEST? 

3876 010730 001002 BNE i YES--BRANCH 

3877 010732 000137 012024 JMP TST1 NO--GO TO THE NEXT TEST 

3878 010736 012737 000010 001102 645: MoV $10. a8STSTNA SET UP TEST NUMBER AND 

3879 + CLEAR THE ERROR FLAG (SERFLG) 

3880 010744 004737 024612 JSR PC. LODPRM ;LORAD THE PARMETERS FOR THE a 3 

3881 010760 012737 011126 001110 MoV STESTIO. @@SLPERR ; SETUP re LOOP ON ERROR 

3882 010766 013777 001102 170156 mov STSTNM. @ISPLAY ;LORD THE TEST NUMBER INTO THe DISPLAY REGISTER 
3883 010764 013737 001506 001204 MoV @eRPT, STIMES ;GET THE ITERATION COUNT 

3884 010772 112737 31 001115 Move #25. . SERMAX ;MAX ERRORS ALLOWED FOR TEST 

3885 011000 012737 011006 001106 MoV #1%, SLPADR +SETUP THE LOOP ADDRESS 
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011006 18: 

011006 112737 000105 004106 nove SSEEK, @80P8. A+2 ; SEEK=COMMAND 

011018 112737 000161 004166 Move SUR ITE, OTAOPB+2 ; COMMAND 

011 1137 001516 004175 nove FT. DTADPBS11 + TRACK ADORESS FOR THE WRITE 
1 013737 001510 004116 nov FC. OPB. R12 ‘CYLINDER ADDRESS FOR THE SEEK 

013737 001510 004176 nov FC. OTADPB+12 + CYLINDER roy FOR THE WRITE 

011088 013737 001510 001532 nov FC.NC1 + STARTING CYLINDER 

011052 013737 001514 001350 nov iC, DELTA CYLINDER INCREMENT VALUE 

011060 012737 004170 nov §-<256. 34. >. DTAOPE+4 ; WORD COUNT 

011066 012737 047714 004172 nov SBUFFER.OTADPB+6 ; BUFFER RDORESS 

011074 005000 CLR RO ;PATTERN POINTER (WC PATTERN) 

011076 004737 030362 JSR PC. SETBUF [LOAD THE WRITE BUFFER 

011102 005001 CLR Ri CLEAR REG! 

011104 113701 004104 Move OB. A. RI +LORD DRIVE ADDRESS 

011110 013708 034516 Mov RPADR, RY + UNIBUS ADDRESS OF THE RH11 

011114 0047 042520 JSR PC. CLRQUE + CLEAR THE OPERATION QUEUES 

Bie 012737 012022 001252 reste Vv #EXITIO.BYPASS [ERROR EXIT FROM TEST 

011126 012737 011126 001110 nov #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 

011138 012706 001100 Mov SSTACK. ? LOAD THE STACK POINTER 

011140 012737 O00340 177776 Nov aPR7, a8PS SET PRIORITY TO 7 

011146 005737 001244 TST CLKSTA ' ;SEE WHICH CLOCK ON SYSTEM 

011152 001415 BEQ 3$ BR IF NO CLOCK 

011154 100405 Bn 1$ BR IF KW1I- 3 CLOCK 

011156 017746 170212 Mov @PKV, - (SP) +SAVE THE VECTOR 

011162 013746 001374 hov PKV, -(SP) + SAVE THE VECTOR ADORE SS 

011166 O00404 BR 2s + CONT I NUE 

011170 017746 170212 18: MOV @LKV, -(SP) +SAVE THE "L’ CLOCK VECTOR 

011178 013746 001406 MoV LKV, -(SP) + SAVE THE VECTOR ADORE SS 

011200 012776 011756 000000 2%: Mov @TST10B.a(SP) ;CHANGE THE VECTOR 

011206 012777 027054 023304 3%: Mov SOORTI.@RPVEC ; CHANGE THE RPO4/RPOS VECTOR 

011214 012737 000010 001344 MoV #8... SEKTMR +LORD THE SEEK TIMER 

011222 012764 000040 000010 Mov #B1TO5.RPCS2(R4) ; INIT THE MASSBUS 

011230 110164 000010 MOVB R1,RPCS2(R4) ;RESELECT THE DRIVE 

011238 013764 004116 000034 MOV DPB. it fa cas +LOAD THE CYLINDER ADDRESS 

011242 013737 004116 001270 MoV OPB. A+1Z2 CYL. DS ; CYLINDER ADORESS FOR ERROR MESSAGE 

011250 112764 000105 000000 Move SEEK, RPCS1(R4) ;: START THE SEEK 

011256 005037 177776 CLR aaP +CLEAR THE PRIORITY 

011262 1056764 12 4$: TSTB RPDS1(R4) +HAS THE DRIVE FINISHED 7? 

011266 100402 Bn! 5$ 7BR IF IT HAS 

011270 000001 WAIT ;WAIT FOR THE OPERATION TO COMPLETE 

011272 000773 BR 4$ + CONT I NUE 

011278 012737 OOONO 177776 55: Mov @PR7. aPS ; CHANGE PRIORITY TO MAX 

011302 032764 040000 000012 BIT #B1T14.RPOSI(RY) ; ERROR ? 

011310 001412 BEQ 6$ ;BR IF NOT 

011312 01 004 104 MoV #OPB. A, R2 +O0PB POINTER 

011316 737 042036 JSR PC, SVRHI11 + SAVE THE REGISTERS 

011322 104023 ERROR 23 ERROR DURING SEEK 

011324 012764 OO00040 000010 MoV pts sh aS lata + INIT THE MASSBUS 

011332 110164 000010 MOVB R1,RPCS +RESELECT THE DRIVE 

011336 012777 037400 023154 65%: MoV alse, aRPVEC SETUP THE RPOY/RPOS VECTOR 

011304 006737 001244 TST SoD +WHICH CLOCK 

011360 001405 BEQ 7BR IF NONE 

011352 016676 000002 000000 MoV LSP). a(SP) +RELOAD THE CLOCK VECTOR 

EE or 062706 000004 vation ADD #4, SP CORRECT THE STACK POINTER 
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MACY11 30A(1052) 


SERVO SETTLE DOW TEST 


? 
R1.RPCSZCR4) 


ry aa ».- (SP) 


) . 
(SP )+, DTADPB+10 ; 
PRALMT +22, -(SP) 


(SP) 
ig )+, OTADPB+10 


3$ 
DTADPB+10 
4§ 


#1, OTADPB+10 
SOTADPB+4 


-R3 

#ORVCLR-RPCSI(RY) [CLEAR THE ORIVE 
(R3)+,RPWC(RY) LOAD THE 

(R3)4, RPBACRY) 
(R3)+, RPDACRY) 


DTADPB+16 


#0 TAOPB. TRNSWT 
R1, OTUW 

5} SOSNerEwe 
#1000. . TIMER(R1) 
R1 RESTORE R1 

DTADPB+2 RPCSI(R4Y) ; START ay OPERATION 
aaPs CLEAR THE PR 


VCL1 


RO. ORV 
aan #1000. 


7$ 

TEST1IO 

NC 1, DPB. A+12 
AND 

SH NUM. ~(SP) 


DEL TA, ~(SP) 
(SP) 
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Heh y THE ERROR LOOP ADDRESS 
LOAD THE STACK POINTER 





;GET THE LOOK AMEAD REGISTER 
;ALIGN THE SECTOR ADDRESS 
;ALIGN THE SECTOR ADDRESS 
;PUT ADORESS IN LOWER BYTE 
> 1N THE LAST 20% OR SECTOR 7? 
;6R IF NOT 
>; INCREMENT THE SECTOR ADORESS 
; INCREMENT THE SECTOR ADORESS 
;LORD THE OPB 

;PUT MAXIMUM SECTOR ADDRESS ON THE STACK 
; INCREMENT PAST THE MAXIMUM “1 ae 
i NEN oe ADORESS TOO LARGE 7? 


R 
7BR if ADORESS 1S 2 GREATER THAN MAXIMUM 
RESET TO SECTOR ADORESS 0 


+ CONTI 
RESET ADORESS TO SECTOR 1 
+ POINTER 


+LORD THE TRACK/SECTOR ADDR 
+RESET ‘DONE’ INDICATOR 
+LOAD ‘TRANSFER’ ADDRESS 


E 
+ ADDRESS OF DRIVE TRANSFER ING 
SET ORIVE ACTIVE INDICATOR 
+SHIFT DRIVE ADDRESS 
a AL 4 THE OPERATION TIMER 


1ORITY 
;WAIT FOR yo a TO COMPLETE 
+ FINISHED SEEKS ? 
+BR_ IF NOT 
+CLEAR THE SEEK COUNT 
+ADD THE INCREMENT 
/ EXCEEDED THE CYLINDER LIMIT ? 


T HAS 
;GET THE NEXT ‘ZONE’ ADDRESS 

7 CHECK THE DIFFERENCE 

‘DIFFERENCE GREATER THAN THE INCREMENT 7? 
[USE THE ICREMENT PARAMETER 


+ COUNT THE NEXT SEEK 
+BEGINNING AND ENDING CYLINDERS THE SAME ? 
a 


THEY ARE 
+RESET THE CYLINDER ADDRESS 
;CYCLE THE RANDOM onl cereieae 


+ USE THE R 

CLEAR THE UPPER DIVIDEND 
+ FORM T vis 

+ INCRE 
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011722 004737 023614 JSR PC, SD01V :D1V 
011726 062637 004116 AOD SS at A412 ; ADD THE REMAINDER TO THE INITIAL CYLINDER 
011732 005726 TST + DISCAR ENT 
1738 023737 004116 004176 CnP Pe. "A+12 OTADPB+i2 + SAME CYLINDER SELECTED AS LAST TIME 7? 
011742 001754 BEQ ;6R IF IT WAS 
1 013737 004116 004176 nov ors. ee DTADPB+12 ; COPY NEW CYLINDER ADDRESS 
011752 000137 011126 Jn TESTIO + CONT 1 NUE 
011756 005337 001344 TST10B: DEC SERTHR +DECREMENT THE SEEK TIMER 
011762 001016 BNE 1$ +; CONTINUE IF NOT DONE 
011768 012702 004104 nov #0PB. A. RZ + DPB ADDRESS 
011770 004737 042036 JSR PC. SVRH11 SAVE THE REGISTERS 
011774 104024 ERROR 24 + TIMEOUT DURING SEEK 
011776 012764 OO0040 000010 nov #6! TOS, ts ; INIT THE MASSBUS 
012008 110164 000010 Nove R1,RPCS2(R +RESELECT THE ORI 
012010 016676 000002 000000 nov BSP), a(SP) +RESTORE THE CLOCK VECTOR ADDRESS 
012016 000401 BR ExiTiO ;ABORT THE TEST 
012020 000002 1$: RTI + RETURN 
012022 000004 EXIT10: SCOPE ;LOOP ? 
+; MEXAAAAAATALALAA ALAA TALS LATA LALA AA ASAT SATA A TAA AAAS T LITT ss 
+RTEST 11 ALL SEEKS TEST 
re THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
+ TO ALL OTHER CYLINDERS. 
re BEGINNING WITH oh ‘FC’, THE TEST SEEKS TO EACH CYLINDER 
:* BETWEEN ‘FC’ AND ‘LC’ FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
re AODRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
re ADORESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC’. THE SEQUENCE 
re CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 
; ¢ RESRAAASAAALALAA AAA LALA ATA ALAA AAAALAAA AAA ATTA ALTA AAT ATA Ts 
012024 TST11: 
012024 000240 NO 
012026 033737 001446 001234 BIT #8 1TS+<11%2>, _— +00 THIS TEST? 
012034 001002 BNE 645 YES--BRANCH 
012036 000137 012244 JnP TST12 ;NO--GO TO THE NEXT TEST 
012042 012737 000011 001102 64S: MoV $11, 98STSTNM ;SET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
012050 004737 024612 JSR PC, LODPRN +LOAD THE PARMETERS FOR THE a $44 
012064 012737 012164 001110 MoV ALS EE od pS + SETUP THE LOOP ERROR 
012062 01 001102 167052 MoV STSTNA. aD! as TES yori INTO THE DISPLAY REGISTER 
012070 013737 001506 001204 Vv @eRPT, ST ” Ger THE ITERATION 
012076 112737 000031 001115 MOVB #25. . SE ; ERRORS ALLOWED FOR TEST 
12108 012737 012112 001106 MoV #15. SLPADR SETUP THE LOOP 
012112 113737 001524 OO4134 15: MOVB FS. OPB8. 8410 + SECTOR ADDRESS 
12120 113737 001524 004154 Move FS. OPB. C+10 + SECTOR ADDRESS 
012126 113737 001516 004135 MOVE FT. OPB. B+11 + TRACK ADORESS 
21 113737 001516 004155 MOvB FT. OPB. C+11 + TRACK ADORESS 
012142 013737 001510 004136 MoV FC. OP. aE STARTING CYLINDER ADORESS 
21 013737 001510 004156 MoV FC, OPB. C+12 + STARTING £¥ eee ADDRESS 
121 012737 012242 001252 MOV SEXITI1,BYPASS ; TEST ABORT EXIT 
gsi 01 001100 saereee MoV STACK, SP SETUP THE STACK POINTER 
012170 004037 025336 JSR RO. @ACALL. C +GO EXECUTE THE COMMAND 
012174 004037 025146 JSR RO. @#CALL. B +GO EXECUTE THE COMMAND 
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ALL SEEKS T 


CZR 
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4054 012200 063737 001514 004156 ADD 
4055 012206 023737 001512 004156 cnP 
4056 012214 BGE 
4057 012216 013737 001510 004156 nov 
4058 012224 3737 001514 004136 ADD 
4059 012232 3737 001512 004136 CMP 
4060 012240 002353 BGE 
4061 012242 EXIT11: SCOPE 


1C, PB. C412 
% DPB. C+12 


i 

FC. OPB. C412 
1C, DPB. B+12 
+ DPB. B+12 


SEQ 0076 


| INCREMENT THE ENDING CYLINDER ADDRESS 
; i CHECK IF EXCEEDING MAX IMUM 
RESET ENDING CYLINDER ADDRESS 
INCREMENT THE STARTING ADORE SS 
Ps MAXIMUM ? 


’ 


LOOP 7 
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4063 
4064 
4065 


A ees ed, eed ees ees ee ee, ee, ee, ee, ees es ee, ee, ees, ees 
A es ed eed ees eed eed ee, ees eed ees ee ees eed es ee, ees oe 
A es ed ed ee, eed eed ee, eed ee, ed ees ee ees ee ees eee 


$3 TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 
TIME TH OLERANCES SPECIFIED IN THE “RPOY 


NG | NE CIFICATI 
;STHE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 
+ SOPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING 
eres THE MINIMUM. MAXIMUM AND AVERAGE TIMES WILL BE 


37: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: 8 
+7: B/: B/: B/: B/: B/: B/: B/: B/: B/: BC: B/: B/: B/S: BL: B/: B/: BA: 8 
+47: B/: B/: B/: B/: BC: B/: B/: B/: B/: BC: B/: B/: BC: B/: B/: B/: B/: 8 


-SBTTL 88 TIMING TESTS 82% 


SISTAAAALAAALAL ALAA ALAAATALAAALALAAAALATAALALA AAA AAAA AAAI A AE 
EST 12 ROTATIONAL SPEED TIMING TEST 


THIS TEST WILL START A SEARCH TO CYLINDER O. Hoa 0, g tar 
0. AS SOON AS THE INTERRUPT OCCURS. THE GO BIT IS SET AGAIN 
AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 
TIMES THEN THE AVERAGE TIME 1S CALCULATED AND CHECKED TO 
ENSURE IT IS WITHIN TOLERANCE: 

16. 67 MS/REV + OR - 2% IF 60HZ 
16. 67 MS/REV + OR - 2.5% IF SOHZ. 


é a = anette anette tiniee teen tale tea se ae abae 


— 


Se 


hohe. ee 


; 
; 
’ 
; 
; 
; 
; 


POST TROSESED. POMS 3 ;00 THIS TEST? 
64S YES--BRANCH 
TST13 ;NO--GO TO THE NEXT TEST 
$12. aeSTSTNn SET UP_TEST NUMBER AND 

+CLEAR THE ERROR FLAG (SERFLG) 
PC, LODPRM LOAD THE PARMETERS FOR THE TEST 
S#TST12. ORSLPERR ; SETUP THE ERROR LOOP ADDRESS 
STSTNM. DISPLAY ;LOAD THE TEST Nunae INTO THE DISPLAY REGISTER 
@ERPT, STIMES GET THE ITERATION COUNT 
#25. . SERMAX ;MAX ERRORS ALLOWED FOR TEST 
qatiaere ; K? 


eoooo 
te ood 8 oe oe 


; ADDRESS 

+D0 A MASSBUS INIT & RECAL 
RETURN HERE IF NO ERROR 

+ + ieee HERE IF ERROR 


sFS 
T.1¢9?) iFT 
(SP)+,RPDA(R4Y) ;LOAD FI/FS 


Soe RRRREEUCS 


saeoocoeoceod 
oe cB oeB ooh. oe eet te aR 
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000040 
004164 
027122 


000101 
177776 


004 164 
04 2036 
000040 
004164 


000040 


001206 


001220 


166516 


000010 
000010 


000010 
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OTATIONAL SPEED TIMING TEST SEQ 0078 


rere are +,ESCAPE TO EXITIZ ON ERROR 


+ COUNT 
aT7A.R3 +60HZ_ PARAMETERS 
@SWO6. d8C. SWR = 60 HZ? 
TESTI2 + YES--@RANCH 
4778.83 +NO--50 HZ PARAMETERS 
STACK, # +SETUP STACK 
#10, ,R1 TIME 10 SEARCHES 
PC, O@STRTMR + INITIALIZE THE TIMERS 
87%. aPKV SETUP VECTOR IN oe OF OVERFLOW 
SDORTI.aRPVEC + SETUP RPO4/S/6 VECTOR 
orks + START COUNTING AT ZERO 
#131. aPKCS + INT. EN. COUNT UP AT 100KHZ 
SEARCH, (R4) START A SEARCH 


#101, @PKCS +STOP THE CLOCK 

68 1T14, RPDSI(RY) Nee +H 

2s + NO--BRANCH 
SAVE RO-RS 

SOTADPB.RZ +0P8 POINT 


ER 
PC, @@SVRH1 1 +SAVE ALL THE RH11/RPO4 REGISTERS 
#81 TOS, RPCSZ2(R4Y) ; MASSBUS CLEAR 
@ADTADPB. RPCSZ2(R4) ; SELECT DRIVE 

+ RESTORE RO-RS 


17 
oP KB + START THE COUNT AT ZERO 
SEARCH, (R4) START A SEARCH 
#131, @PKCS +START THE CLOCK 
+WAIT ON INTERRUPT 
#101, aPKCS +STOP THE CLOC 
@B1T14.RPDSICR4Y) 7 1S “ERR=1"7 
3$ + NO--BRANCH 
+ SAVE RO-RS 
#0 TAOPB. ate +DPB POINTER 
PC, @&SVRH joo ALL THE RH11/7RPO4Y REGISTERS 
961 105, RPCS2(R4 + MASSBUS CLEAR 


ef OTROPB. RPCSZ(R) oeLssT OR | VE 
+ RESTORE RO-RS 
DISK ERROR OCCURRED 


17 

PC, aNCOUNT [UPDATE THE COUNT 

Ri + DONE? 

i$ ; NO--BRANCH 

8$ + YES--GO TO THE EXIT 

#101, @PKCS +STOP THE CLOCK 

@aPs +DROP THE PRIORITY 

(SP )+, RO iPC OF WAIT4+2 

(SP )+ POP THE PS FROM THE STACK 
+ SA yt 

a#OTAOPB, - ; PB gi 

PC, @@SVRH11 + SAVE ALL Tie RH11/RPOY REGISTERS 


#61705, RPCSZ2(R4) ; MASSBUS CLE 
SOOTEEPS. BEL Satts) eset esT OR IVE 


RESTORE RO-R 
20 + CLOCK NOVERFL OWED 
#8 1TO5,RPCS2(R4) ; MASSBUS INIT. 





8 7? 
CZR JAC RPO4/S/6 MECHANICAL AND et TEST MACYI1 3OR(1052) 27-JUL-78 09:24 PAGE 83 


CZR JAC. P11 27-JUL-78 09: 18 T12 ROTATIONAL SPEED TIMING TEST 
4175 012732 013764 004164 000010 nov SED TADPE. RPCS2(R4) dg) ORI VE 
4176 012740 004737 024076 JSR PC. aeST. CLK + INITIALIZE THE CLOCK 
8177 012788 012777 037400 021546 nov 81SR, ARPVEC ; Rest ORE RIL RPON 5/6 INT. VECTOR 
4178 012752 032737 000100 001220 BIT @SW06,a8C. SMR = 5 60 42? 
4179 012760 001004 BNE 9S +NO -- BRANCH 
4180 012762 004037 027254 JSR RO, aaTYPTIN ; 60 TPE THE TIMES 
4181 012766 002774 T7A + POINTER 
4182 012770 000403 BR EXIT12 G0 TO EXIT 
4183 012772 9S: 
418% 012772 004037 027254 JSR RO, OST YPTIN +GO TYPE THE TIMES 
4185 012776 003004 178 +POIN ¥ » 
4186 013000 000004 EXiT12: SCOPE LOOP 7? 
4188 
4189 +; SESAAAAAAAALALTA TATA LAAT A TATA SALA TATA TAL ALAS AAA SAT ATTA Iss 
cere +BTEST 13 ONE CYLINDER SEEK TIMING TEST 
4192 rm THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO +) THE 
4193 it CYLINDER BY ONE UNTIL THE INCREMENT 1S GREATER THAN THE 
4194 re CYLINDER LC‘. THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
4195 8 TIME TO PERFORM EACH SEEK 1S CHECKED TO ENSURE IT DOES NOT 
4196 re EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
+ }4 re THE TIME MUST BE LESS THAN 10NS. 
4199 ; ; RAERSAAALALALALA ALAA TALAATAALALASALASAL TATA AAAA ALTA TAA TTA ass 
4200 013002 TST13: 
“201 013002 000240 NOP 
4202 013004 033737 001452 001234 BIT 088 1TS+<13%2>. TSTNMS ; 00 THIS TEST? 
4203 013012 001002 BNE 64S + YES--BRANCH 
4204 01301% 000137 013446 JMP TST14 +NO--GO TO THE NEXT TEST 
4205 013020 012737 000013 001102 64%: MoV #13, aeSTSTNM ;SET UP TEST NUMBER AND 
4206 +CLEAR THE ERROR FLAG (SERFLG) 
4207 013026 004737 024612 JSR PC, LOOPRA +LORD THE PARMETERS FOR THE TEST 
4208 013032 012737 013002 001110 Mov ATST13. QBSLPERR > SETUP THE ERROR LOOP ADDRESS 
4209 013080 013777 001102 166074 Mov STSTNM. @DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4210 013086 013737 001506 001204 Mov @ORPT, STIMES GET THE ITERATION COUNT 
4211 013054 112737 000031 001115 MOvVB #25. . SERMAX +MAX ERRORS ALLOWED FOR TEST 
4212 013062 005737 001244 TST @#CLKSTA ;KWI1-P CLOCK? 
4213 013066 003002 BGT i$ + YES--START TE 
4214 013070 000137 013446 JMP TST14 +NO--GO TO NEXT TEST 
4215 013078 012737 013074 001106 15: MoV #15. SLPAOR + SETUP THE LOOP ADDRESS 
4216 013102 OG0%037 026672 JSR RO, @#SRCHOO +D0 A MASSBUS INIT. AND RECAL 
4217 013106 000402 BR 2s +NO ERROR RETURN 
4218 013110 000137 013444 JMP ExIT13 ERROR RETURN--SCOPE LOOP CALL 
4219 01311% 012703 003014 2$: Mov #T10.R3 +; PARAMETER POINTER 
4220 013120 ptf ck 013444 001206 MoV $EX1T13, SESCAPE 7 ESCAPE TO exITIS ON ERROR 
4221 013126 012706 001100 TEST13: MOV @STACK, +SETUP STACK 
4222 013132 013737 001510 004176 MOV FC, @8OTADPB+12 ; START WITH BEGINNING CYLINDER 
4223 013140 006237 004176 INC DTAOPB+12 + INCREMENT THE BEGINNING CYLINDER 
4224 013194 005006 CLR R5 +SET THE UP/DOWN SWITCH TO UP 
4226 013146 004737 027056 JSR PC, @USTRTMR + INITIALIZE THE TIMERS 
4226 013162 012777 013340 166214 MoV 87%, @PKV SETUP INCASE OF OVERFLOW 
4227 013160 012777 027054 021332 MoV @OORTI.QRPVEC ;SET RPO4/S/6 VECTOR 
4228 013166 006077 166210 1$: CLR oP KB START THE COUNTER AT ZERO 
4229 013172 013764 004176 000034 MOV @SOTADPB+12,RPCACRY) ; LOAD DESIRED CYLINDER 
4230 013200 012714 000105 MOV @SEEK, (RY) + START A SEEK 














CZR IAC. P11 27-JUL-78 09: 
4231 013208 012777 000131 

















4232 013212 000001 
4233 013214 042777 000101 
4238 013222 032 040000 
4235 013230 001415 
4236 013232 104412 
4237 013238 012702 004164 
4238 013240 004737 

013248 012764 000040 
4240 013252 013764 004164 
4241 013260 104413 
42 0 104017 





13262 
4243 013264 004737 027122 
026450 





4247 013300 005237 004176 
4248 0133508 023737 004176 


0 002725 
4250 013318 912705 177777 
000722 


013320 
4252 013322 005337 004176 
4253 013326 023727 004176 























000101 
4257 0136 005037 177776 


166156 
000012 


001512 


166032 


000010 
000010 


000010 
000010 


021062 
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CYLINDER SEEK TIMING TEST 


nov 8131, aPKCS 4A THE CLOCK 
WAIT WAIT ON INTERRUPT 
BIC #101, aPKCS STOP THE CLOCK 
BIT @B1T1I4,.RPDOSI(R4Y) | ANY DISK ERRORS? 
BEQ 2s 7 NO--BRANCH 






SAVREG + SAVE RO-RS 
nov SOTADPB.RZ +O0PB POINTER 
JSR PC. @@SVRHI11 ;SAVE ALL THE RH11/RPO4 REGISTERS 
nov 981105, RPCSZ(R4) + MASSBUS CLEAR 
Vv @SDTADPE. RPCSZ( RY) ; SELECT DRIVE 
RESREG RESTORE RO-RS 
ERROR 17 REPORT THE ERROR 
2$: JSR PC, @@COUNT + COUNT THIS SEEKS TIME 
JSR PC, ae TWONS +STALL FOR 2 MILLISECONDS 
TST R5 + UP OR DOWN? 
BNE 4$ ; DOWN- - BRANCH 
3S: INC @sDTADPB+12 sMOVE TO NEXT CYLINDER 
CMP @SDTADPB+12.LC ;OUT OF CYLINDERS? 
BLT i$ +NO--GO DO THE NEXT SEE 
Mov #-1,R5 + SET UP/DOWN SWITCH TO DOWN 
BR 1$ GO DO THE NEXT 
4$: DEC @8OTADPB+12 +MOVE TO NEXT CYLINDER 
CMP @S0TADPB+12,80 ;OUT OF CYLINDERS? 
BGT 1$ +NO--GO DO THE NEXT SEEK 
BR 8$ +GO TO THE EXIT 
7$: BIC #101. aPKCS + STOP THE CLOCK 
CLR @nPs DROP THE PRIORITY 
Mov (SP )+, RO PC OF WAIT+2 
TST (SP )+ POP THE PS FROM THE STACK 
SAVREG + SAVE RO-RS 
MoV #OTAOPB.RZ DPB POINTER 
JSR PC, @#SVRH11 +SAVE ALL THE RH11/7RPO4 REGISTERS 
Mov #681 TOS. RPCS2(R4) ; MASSBUS CL Pr 
Vv @HDTADPB. RPCS2(R4) ; SELECT OR 
RESREG + RESTORE RO-R 5 
a ROR REPORT CLOCK OVERFLOW 
MOV #6 1TOS, RPCS2(R4) ; MASSBUS INIT. 
MoV @HOTAOPB. RPCS2(R4) ; SELECT DRIVE 
JSR PC, @@ST. CLK + INITIALIZE THE CLOC 
MoV #1SR, @RPVEC + RESTORE RHI 1/RPON/5/6 INT. VECTOR 
JSR RO. @aTYPTIN +GO TYPE THE TIMES 
T10 ; POINTER 
EXIT13: SCOPE LOOP ? 


+; RERAAAAAAAAAAAAAAAALA AAA ALAA AAA A AAA ASAT AAA AAA AAA AAA AAA as 
+STEST 14 ACCESS TIME MEASURMENT TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM ee Oe TO 


RANCE ALL TIME MEASURMENT. 
THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL 
OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 AIS. 
CYLINDER ‘LC’ DEFAULTS TO 136 (10) FOR AN RPO4/S OR TO 255 (10) 


* * . *»* ». . *. 
3¢ 34 36 OG 3G DE 2E 
zB 
m 
= 
~ 
= 
z 
~ 
& 

“+ 
S 
= 
So 
es | 
% 

“+ 
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Pil 27-JUL-78 09: 18 ACCESS TIME NMEASURMENT 
:8 FOR AN RPOS. 
+; SERTALALALITAAAA LALA LALA LALA LALA LALA ALAA AAT SAAT AALS ASAT TITss 
013446 TST14: 
013446 000240 NOP 
013450 033737 001454 001234 BIT 008 1TS+<1422>, TSTNMS > D0 THIS TEST? 
013456 001002 BNE 64S + YES-- BRANCH 
013460 000137 014164 JP TST1$ +NO--GO TO THE NEXT TEST 
013464 012737 000014 001102 64%: Mov #14, deSTSTNM +SET UP _TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
013472 004737 024612 JSR PC, LOOPRN +LORD THE PARMETERS FOR THE TEST 
013476 012737 013446 001110 Mov GTST14, QBSLPERR > SETUP THE ERROR LOOP ADDRESS 
013508 013777 001102 165430 nov STSTNM. @DISPLAY ; .ORD THE TEST NUMBER INTO THE DISPLAY REGISTER 
013512 013737 001506 001204 Mov @eRPT, STIMES +GET THE | TERATION COUNT 
013620 112737 000031 001115 nove #25. . SERMAX +MAX ERRORS ALLOWED FOR TEST 
013526 005737 001244 TST CLASTA sKW1I-P CL 
013532 BGT + YES--ST 
013538 000137 014164 Jnp TST15 ;NO--GO TO NEXT TEST , 
013540 012737 013540 001106 1%: Mov #15. SLPADR +SET THE LOOP 
13546 004037 026672 » JSR RO. @#SRCHOO +00 A MASSBUS INIT & RECAL 
013552 BR 2$ +RETURN HERE IF NO ERROR 
013554 000137 014162 JnP EXITI4 RETURN HERE ON ERROR 
013560 012703 003024 . &: MOV aT11,R3 +PARAMETER POINTER 
013664 012737 014162 001206 Mov #EXIT14,SESCAPE >; ESCAPE TO exITi4 ON ERROR 
013672 012706 001100 _ TESTI4: MOV STACK. ; SETUP STAC 
013576 012701 000200 m4 Mov #128. .R1 REPEAT “O-136-0" 128 TIMES 
013602 004737 027056 JSR PC, @ASTRIMR + INIT. THE COUNTERS 
013606 012777 014056 165560 Mov 875. aPKV +SET UP VECTOR IN CASE OF OVERFLOW 
013618 012777 027054 020676 nov SDORTI.aRPVEC ;SETUP RPO4/S/6 VECTOR 
013622 165554 1$: CLR oP KB + START COUNT AT ZERO 
013626 013764 001512 000034 Mov LC, RPCACRY) + MIDDLE’ CYLINDER 
013635 012764 000105 000000 MOV @SEEK. RPCS1(R4) 7; START A SEEK 
013642 012777 000131 165530 MOV #131. @PKCS +START THE CLOCK 
013660 000001 WAIT ;WAIT ON INTERRUPT 
013662 042777 000101 165520 BIC #101, aPKCS +STOP CLOCK 
013660 03 04 000012 BIT #B1T14, RPOSI(R4) | ERR=17 
013666 001415 BEQ 2$ + NO--BRANCH 
013670 104412 SAVREG SAVE RO-RS 
013672 012702 004164 Mov + fyetcte A +OPB POINTER 
013676 004737 042036 JSR PC. @#SVRH11 +SAVE ALL THE RH11/7RPO4 REGISTERS 
012764 000040 000010 MoV #6 1TOS.RPCS2(R4) ; MASSBUS CLEAR 
013710 013764 004164 000010 Mov @SDOTADPB. RPCS2(R4) ; SELECT DRIVE 
013716 104413 RESREG +RESTORE RO-RS 
013720 104017 ERR 17 
013722 006005 2$: CLR RS + SET UP/DOWN arid ie TO UP 
13728 004737 027122 JSR PC. @@COLNT ; UPDATE THE COUN 
013730 004737 0264 JSR PC, aa THOMNS +STALL FOR 2 MILLI SECONDS 
013735 005077 165442 CLR oP KB + START THE COUNT AT ZERO 
013740 013764 001510 000034 Mov FC, RPCACRY) +BEGINNING CYLINDER 
013746 012764 000105 000000 MOV @SEEK, RPCS1(R4) 7; START A SEEK 
013764 012777 000131 165416 MoV #131, e@PKCS +START THE CLOCK 
013762 000001 WAIT +WAIT ON INTERRUPT 
013764 042777 000101 165406 BIC #101, aPKCS +STOP THE CLOCK 
013772 032764 040000 000012 BIT #BITIN, RPDSI(RY) | ERR=1? 
014000 001415 BEQ 3$ ;NO--BRANCH 
014002 104412 SAVREG ; SAVE RO-RS 
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014162 


013737 


000101 
177776 


001456 


014702 
000015 


024612 
014164 
001102 
001506 


165314 


000010 
000010 


000010 
000010 


020344 


001234 


001102 


001 
164 
00120 


N= 
— oe 
eno 


3$: 


7$: 


T 
EXIT14: SCOPE 


; 


ee i ee ee ee ee 2 
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TIME MEASURMENT TEST 


SOTADPB.RZ +D0PB POINTER 
PC. dOSVRHI11 +SAVE ALL THE RH11/RPO4 REGISTERS 
#61 TOS. RPCSZ(RY) + MASSBUS CLEAR 
SEDTADPB. RECSZ(RW) i SELECT ORIVE 

s RESTORE RO-RS 
#-1,R5 + SET A a SWITCH TO DOWN 
PC, @#COLNT ; UPDATE THE COUNT 
> ahead +$T ALL FOR 2 MILLISECONDS 
1$ ;NOe BRANCH 
8s + YES--EXIT 
#101. @PKCS +STOP THE CLOCK 

DROP THE PRIORITY 
(SP )+, RO PC OF WAIT42 
(SP )+ 44+ THE PS FROM THE STACK 

RO-RS 

SOTADPB. RZ Dre POINTER 
PC, @@SVRH11 +SAVE ALL THE RH11/7RPO4 REGISTERS 
981 105, RPCS2(R4) + MASSBUS CLEAR 


@SOTADPB. RPCS2(R4) ; SELECT DRIVE 


20 
#6 1 TOS, RPCS2(R4) 


RESTORE RO-RS 
+CLOCK OVERFLOWED 


+ MASSBUS_INIT 


QSDTAOPB, RPCS2(R4) ; SELECT oR i ve 


PC. @@ST. CLK 
#1SR, @RPVEC 
RO, OAT YPTIN 


+ INITIALIZE THE CLOCK 

+ RESTORE sAely SSS INT. VECTOR 
;GO TYPE THE TIMES 

; POINTER 

+LOOP ? 


+; MERAAAAAAAAALAAA AAA AAA AAA AAA AAA ALAA AAA AA AAA AAA AAA AAA TAs 
TEST 15 MAX! TEST 


IMUM SEEK TIMING 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 
NDER ‘LC’. THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 


THIS SEQUENCE 1S REPEATED 128 TIMES (FOR 
A TOTAL OF 256 SEEKS). 


SEEK TIME MUST BE LESS THAN 


THE MAXIMUM 
54 MS. ‘LC’ DEFAULTS TO 410 (10) FOR RPO4/S'S AND TO 814 (10) 
FOR RPO6'S. 


+ -iaiaaatanaai ia tila baie til eae aalanittts 


645: 


88 1TS+<15%2)>, bitty ;D0 THIS TEST? 
64S ANCH 


TST16 
#15, a@#STSTNM 


PC. LODPRM 
ATST15. SUSLPERR ; 


STSTNM. ai SPLAY 
@eRPT. STIMES 


| id 


;NO--GO TO THE NEXT TEST 


ER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
+LORO THE PARMETERS FOR THE TEST 
THE ERROR LOOP 


+LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
+GET THE ITERATION COUNT 


27-JUL-78 09: 


112737 
005737 


000137 
012737 
004037 


177777 
027122 
026450 


000101 
177776 


001115 


001106 1%: 


2s: 
001206 


TESTIS: 


165042 
020160 


000034 
000000 
165012 


165002 
000012 


1$: 


000010 
000010 


2$: 
000034 


000000 
164700 


164670 
000012 


000010 
000010 


3$: 


164576 7%: 
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#25. . SERMAX + MAX ERRORS _— FOR TEST 


aeCLKSTA +KW11-P CLOC 

i$ + YES--START TEST 

TST16 +NO--GO TO NEXT TEST 

#15. SLPADR + SETUP THE a ADDRESS 

RO. @#SRCHOO +00 A MASSBUS INIT & RECAL 
2$ RETURN HERE IF MNO ERROR 
EXIT15 + RETURN HERE ON ERROR 
8T12,R3 +; PARAMETER POINTER 
BEXITIS.SESCAPE ;; ESCAPE TO EXITIS ON ERROR 
STACK. $ + SETUP STACK 

#128. .R1 ;REPEAT “O-‘LC'-O" 128 TIMES 
PC, @USTRTMR + INIT. THE TIMERS 

875%. aPKV ue VECTOR IN CASE OF OVERFLOW 


SOORTI.aRPVEC ;SE RPO4/5/6 

oPKB + START COUNTING FROM ZERO 
LC, RPCACRY ) MAXIMUM CYLINDER 

@SEEK. RPCS1(R4) ; START A SEEK 


#131, @PKCS + START THE CLOCK 
;WAIT ON INTERRUPT 
#101. @PKCS +STOP THE CLOCK 


#B1T14, RPOS1(R4) ; ERR=17 
2s ; NO--BRANC 


, 


+ SAVE RO-RS 
SOTADPB. RZ ;OPB POINTER 
PC, @@SVRH11 *SAVE ALL THE RH11/RPO4 REGISTERS 
#6 1TOS.RPCSZ2(R4) ; MASSBUS CLEAR 
@ADTADPB. RPCSZ(R4) ; SELECT DRIVE 


- +RESTORE RO-RS 
RS - SET THE UP/DOWN SWITCH TO UP 
PC, @@COUNT ;UP THE COUNT 
PC, da THONS *STALL FOR 2 MILLISECONDS 
+ START COUNT AT ZERO 


oPKB 
FC, RPCACRY ) ; BEGINNING CYLINDER. 
@SEEK, RPCS1(R4) ; START A SEEK 


#131, @PKCS + START THE CLOCK 
;WAIT ON INTERRUPT 
#101, @PKCS +STOP THE CLOCK 
aBIT14, RPDS1(R4) ; “ERR"=1? 
3$ ; chet RANC 
+ SAVE RO-R 
#OTAOPB.R2Z +OPB POINTER 


PC, @@SVRH11 + SAVE ALL ne - poise REGISTERS 
#6 1TOS. RPCS2(R4) ; MASSBUS CLEAR 
@#OTADPB. RPCSZ2(R4) >; SELECT DRIVE 


+ RESTORE ~ 
17 REPORT THE ERR 
#-1,R5 +SET THE UP/DOWN SWITCH TO DOWN 
PC, @#COLNT UPDATE THE COUNT 
* eahpenaieg ‘STALL FOR 2 MILLISECONDS 
1$ NON BRANCH 
8$ + YES--EXIT 
#101, @PKCS +STOP THE CLOCK 
@nPs ‘DROP THE PRIORITY 


SEG 0083 
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EXiT15: SCOPE 


6 7? 
wood 30A(1052) 27-JUL-78 09:24 PAGE 88 
MAXIMUM SEEK TIMING TEST 


(SP +. RO 7PC_ OF WAIT+2 
(SP 4 +POP THE PS FROM THE STACK 
SOTADPB.R2 [0P8 POINTE™ 
PC, @8SVRH11 4) SRM PL. tHE RH11/RPO4 REGISTERS 
#6 1 TOS. RPCSZIR 7 MASSBUS CLEAR 
SHOTAOPR. RPCSZ¢RW) s SELECT ORIVE 
+RESTORE RO-RS 
20 CLOCK OVERFLOWED 
#681 TOS.RPCS2(R4) > MASSBUS INIT. 


»; 
@HDTADPB. RPCSZ(R4) 7; SELECT DRIVE 
PC, o@ST. CLK + INITIALIZE THE CLOCK 
#1SR. @RPVEC + RESTORE hg ot INT. VECTOR 
RO. aa TYPTIN +60 Mg THE TIMES 








CZR JAC 
CZR JAC. 


4472 
4473 
4474 


“— 
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.SBTTL 88% ADDRESSING TESTS 222 


Ames ee ed eed eee, ee es ees ee, eee es ee, ee, es, ees ee, ee 
2 a, ee, ed ed ed ed es ed es ed ee ee ee ee ee ee eee 
A med ed eed eed, eed ees ee, ee ees ee, ee, ee, ee, ees ee, ee, ee, 


+STHE RODRESSING TESTS EMSURES PROPER OPERATION OF THE TRACK 
+ SAND SECTOR ADDRESS CIRCUITRY. BOTH ADDRESSING TESTS 
+SHILL BE PERFORMED ON CYLINDER FC. 


3/7: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: B/: BL: B/: B/: BA: B/: 8 
+7: B/: B/: B/: B/: B/: B/: B/: B/: BS: BS: B/: B/: B/: B/: B/: BS: B/: 8 
37: &/: B/: B/: B/: B/: B/: B/: BS: B/: B/: BC: BL: B/: B/: B/: BA: B/: 8 


+; REARRATATATALAALALATA LALA AAAA LALA LATA ASA TATA A LSAT ETAT TTI Iss 
+STEST 16 SECTOR ADDRESSING TEST 
rm THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK “FT”. THE 
re DATA WILL BE 256 WORDS OF THE SECTOR ADORESS OF THE SECTOR 
re BEING WRITTEN A WRITE CHECK 1S PERFORMED. THE BUFFER IS 
re CLEARED (TO 177400) AND THE DATA 1S READ AND COMPARED. THEN SECTOR O 
re 1S REWRITTEN AND SECTORS 0 - 21 ARE WRITE CHECKED. THEN 
i” SECTOR 1 IS REWRITTEN AND SECTORS O - 21 ARE WRITE CHECKED. 
rm THIS REWRITE AND WRITE CHECK PROCEDURE 1S CONTINUED UP THROUGH 
re REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21. 
+; RESSEAAAAATALAA ASAT ALAA AAA AAAS AAA AAA ALATA AAAS SATA T Tess 
014702 TST 16: 
014702 000240 NOP 
014704 033737 001460 001234 BIT gon tTeetieee. TSTNMS ;DO THIS TEST? 
014712 001002 BNE 2 a : VES~-BR _— 
014714 000137 015300 JP TSsT1 NO--GO TO THE NEXT TEST 
014720 012737 000016 001102 64%: Mov 16, o8STSTNA :$ET UP Test NUMBER AND 


+CLEAR THE ERROR FLAG (SERF 

014726 004737 024612 JSR PC. LODPRA +LOAD THE PARMETERS FOR THE. TEST 
014732 012737 014776 001110 MoV STESTIG.@8SLPERR + SETUP THE LOOP ON ERROR ADDRESS 
019740 013777 001102 164174 Mov STSTNM. DISPLAY <LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
014746 013737 001506 001204 Mov OERPT, STIMES GET THE ITERATION COUNT 

014764 113737 001364 001115 MOVB ERR. CT. SERMAX  ; AX ERRORS ALLOWED FOR TEST 
014762 012737 015276 001252 Mov #EX1T16. @eBYPASS 
014770 012737 014776 001106 MoV STEST16.SLPADR ; SETUP THE LOOP pattie 
014776 012706 001100 TEST16: MOV @STACK. $ +SET THE STACK POINTER 
016002 004737 027706 JSR PC. aeF ILBUF ‘FILL THE BUFFER ounTH SECTOR ADDRESSES 
016006 013737 001510 004176 MoV OFC, SOTADPB+12 ; CYLINDER 

016014 113737 001516 004175 Move onFT. ae0T +11 ; TRACK 

16022 106037 004174 CLRB @80TAOPB+10 + SECTOR 

16026 013737 001352 004170 Mov TRCKWC, @2OTADPB+4 ; WORD COUNT 

16038 012737 047714 004172 MoV BUFFER. a@OTADPB+6 ; BUFFER ADDRESS 

016042 012737 015042 001110 MOV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 

16060 012706 001100 Mov aSTACK, LOAD THE STACK POINTER 

016054 012737 000161 004166 MoV AUR ITE, @BOTAOPB+2 ; CONMANDSWRITE DATA 

016062 004037 025526 JSR RO. @#DRVCAL ; START A DATA TRANSFER 

015066 012737 000151 004166 MOV @WRCKD. @BOTADFB+2 ; CONMAND=WRITE CHECK DATA 
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013777 
013737 


015074 
001100 


015112 
001100 
027744 
000171 
025526 


=f 


030012 
047714 


001462 
015720 
000017 
024612 
015374 
001102 
001506 


001110 
001110 


004166 


001110 


004166 
004170 


001110 


004 166 
004170 
004172 


001234 
001102 


001110 
163576 
001204 


CTOR ADDRESSING T SE@ 0086 
nov 6. - APER + SETUP THE ERROR LOOP ADDRESS 
nov OSTACK. & ; THE STACK POINTER 
JSR RO, @BORVCAL sSTART A be 
nov 6. . SLPERR +SETUP THE ERROR LOOP ADDRESS 
nov OSTACK. $ ;LOAD THE STACK POINTER 
JSR CLEAR BUF 
nov READ, SOOTAOPB+2 ; COPD = READ 
ISR RO. @#ORVCAL +$T DATA TRANSFER 
ISR RO. GECKSCTR + CHECK THE SECTOR DATA READ 
nov SBUFFER.RO + BUFFER ADDRESS 
CLR wa FIRST SECTOR 
nov a A tg +SETUP THE ERROR LOOP ADDRESS 
Mov aSTACK, 3 ;LORD THE STACK oe 
1$: nov SUR ITE. aOTADPB+2 ; CONMAND=UR ITE DATA 

nov SSCTRUC. a8DTADPB+4 ; WORD COUNT 

Mov RO. S20TAOPB+6 > BUFFER ADDRESS 

Move Ri. @eOTAOPB+10 + SECTOR 

JSR RO, @BORVCAL +; START A DATA TRANSFER 

nov 6. . SLPERR +SETUP THE ERROR LOOP ADDRESS 

Mov STACK. SP +LOAD THE STACK POINTER 

nov GURCKD. @BOTADPB+2 ; COMMAND=WRITE CHECK DATA 

Mov TRCKWC, @2OTADPB+4 > WORD COUNT 

Mov SBUFFER. @80TADPB+6 ; BUFFER ADDRESS 

CLRB 28 DTADPB+10 3 SECTOR 

JSR RO. @RORVCAL ;START A DATA TRANSFER 

a | gets -RO +MOVE TO NEXT SECTOR 

chp PRALMT +22, R1 + DONE? 

BHIS 1s ;NO--BRANCH 
EXIT16: SCOPE LOOP ? 
++ REMAAAAIATALAAAATATAAATAAAAAAAAAAAA ATLA ALAA AAA AA AAT ATs 
sSTEST 17 TRACK ADDRESSING TEST ‘ 
re ne TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
8 N CYLINDER “FC" SECTOR “FS” OF EVERY TRACK WITH EACH TRACK 
re GETTING ITS OWN TRACK ADDRESS. 
re A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO ENSURE 
re THE DATA 1S VALID. THEN TRACK O IS REWRITTEN — TRACK 1 
re THROUGH TRACK 18 1S WRITE CHECKED. THEN TRACK 1 IS 
it REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE "CHECKED. 
‘8 THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING TRACK 17 
re AND WRITE CHECKING TRACK 18. 


ii senannnennnnnnsennnnessssssssssssasssanssnaanagaaaagassigs31%2 
"(NOP 
BIT #8 1TS+<17%2), TSTNMS ;00 THIS TEST? 
64S ES--BR ANCH 


TST20 ; oT 
64S: MoV #17. @@STSTNM +SET UP_TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLL) 
JSR PC. LODPRM +LORD THE PARMETERS FOR THE TEST 
MOV GTESTI7.@8SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM. @ISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV @eRPT. STINES +GET THE ITERATION COUNT 


3 7 
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ACK ADDRESSING TEST SEQ 0087 
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015352 113737 001364 001115 nove 
015360 012737 015716 001252 nov 
015366 012737 015374 901106 nov 
015374 012706 001100 TESTI7: MoV 
015400 004737 027706 JSR 
01540" 012737 000161 004166 nov 
015412 013737 001510 004176 nov 
0154 113737 001524 004174 nove 
0154826 012737 177400 004170 nov 
015638 012737 047714 004172 nov 
015442 CLR 
015484 012737 015444 001110 Mov 
015452 012706 001100 Mov 
015456 110037 004175 1$: nove 
015462 037 025526 JSR 
015466 062737 001000 004172 ADD 
015474 200 INC 
015476 022700 000023 CHP 
015502 003365 BGT 
015504 012737 047714 004172 Mov 
015512 CLR 
015518 012737 015514 001110 Mov 
015522 012706 001100 Mov 
015526 012737 000151 004166 MoV 
015538 110037 004175 2s: Move 
015540 037 025526 JSR 
015644 062737 001000 004172 ADD 
015652 005200 INC 
015554 022700 000023 CMP 
015560 003365 BGT 
015562 CLR 
016564 110037 004175 3s: MOvVB 
015570 010001 MoV 
015672 012737 047714 004172 MoV 
016600 301 4$: DEC 
015602 002411 BLT 
1560% 062737 001000 004172 ADD 
015612 BR 
015618 012737 015614 001110 Mov 
015622 01 001100 MoV 
016626 012737 000161 004166 55: MoV 
015634 025526 JSR 
016640 062737 001000 004172 65%: ADD 
015686 106237 004175 INCB 
016662 012737 015652 001110 MoV 
016660 012706 001100 MoV 
016664 012737 000151 004166 Mov 
016672 037 025526 JSR 
015676 122737 004175 CMPB 
016704 3365 BGT 
15706 INC 
016710 022 000022 CMP 
015714 003323 GT 


8 
EXIT17: SCOPE 


ERR. CT. ee ERRORS ALLOWED FOR TEST 
soeer i’ pereme + SETUP THE LOOP ADDRESS 


TACK. # +SET THE STACK POINTER 
PC, a0F ILBUF sFILL THE BUFFER WITH TRACK ADDRESS 
WRITE DATA 


8+4 ; WORD COUNT 
core Sonares oe RDORESS 
€. . SLPERR +SETUP THE ERROR LOOP ADDRESS 
STACK, $ LORD THE STACK POINTER 
RO. @#OTADPB+11 i TRACK ae 
RO, START A DATA TRANSFER 
#256. 32. @8DTADPB+6 ; UPDATE BUFFER ADORESS 
R + UPDATE TRACK NUMBER 


#19. .RO ;OUT OF TRACKS? 

1$ ; NO--BRANCH 

SBUFFER, aD TAOPES + BUFFER ADORESS 

8. , SLPERR + SETUP THE ERROR LOOP ADDRESS 


STACK. $ ;LOAD THE STACK POINTER 
@WRCKD. @2OTADPB+2 ; COMMAND=WRITE CHECK 

RO. @OTADPB+11 + TRACK ADDRESS 

RO. @#ORVCAL ; START A DATA TRANSFER 
#256. 32. 0 eae Le BUFFER ADDRESS 


RO TRACK NUMBER 
the -RO >; OUT OF jon 


NO--BRANCH 
RO FIRST TRACK ADORESS 
RO, @ROTADPB+11 + TRACK 
RO.R ;FORM BUFFER ADDRESS 
aeres: @sOTAOPB+6 ; BUFFER ADDRESS 


es 
+ a 32. . @#DTADPB+6 


&. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
STACK. 3 +LOAD THE STACK POINTER 

SUR ITE, AOTAOPB+2 ; COMMAND=WRITE DATA 

RO. VCAL ; START A DATA TRANSFER 

#256. 32. @#DTADPB+6 ; UPDATE BUFFER ADDRESS 
asOTAOPG+1 1 +MOVE TO NEXT TRACK 

#. . SLPERR + SETUP THE ERROR LOOP ADORESS 
STACK. $ LORD THE at POINTER 
SURCKO, @BOTAOPB+2 ; CONMAND=WRITE CHECK DATA 
RO. @#ORVCAL 7 START A DATA TRANSFER 

z38 «  aa0TADPB+11. ; OUT oA TRACKS? 

RO SNEXT TRACK TO WRITE 

#18. .R0 OUT OF TRACKS? 

3$ ; NO--BRANCH 
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CZR JAC. P11 27-JUL-78 09: 18 333 DATA TEST 22 SEQ 0088 
vo3s .SBTTL 88% DATA TEST se 
4e40 Pasiissitissitscsissiti teriisriissst sot settee tse esses sees S| 
mo at | +STEST 20 DATA TEST 
4643 re THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
4O44 rm "FC" THR "LC" BY THE INCREMENT “IC" USING THE DATA PATTERNS 
4645 rm SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 
4646 ‘8 ‘ “ TO “FT” THE 2-4 UNTIL “> “LT” 
4647 re 2. WRITE THEN WRITE CHECK “FS” THROUGH “LS” OF TRACK “NT” 
4648 i” a READ THEN SOFTWARE COMPARE “FS” THROUGH “LS” OF TRACK “NT” 
4649 re 4. INCREMENT “NT” “iT 
4650 a 5. REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
or | + 6. REPEAT STEPS 1-5 FOR “FC” THROUGH mee ADVANCING BY "IC" 
4653 re IF A WRITE CHECK ERROR OCCURS THE ERROR 1S REPORTED AND 
4654 ‘8 THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS 
4655 3 ACCOMPLISHED BY PERFORMING TWO(2) CESSIVE ERROR FREE 
4656 re WRITE CHECKS. THE CHECK FAILS THE ERROR IS REPORTED AS 
4657 re | FATAL AND NO READ OCC 
4658 re FS DEFAULTS TO 1 AND LS DEFAULTS T0 0 
4659 8 PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 
ore + THE POSSIBLE PATTERNS ARE: 
we6z is PATO PAT1 PAT2 PATS PATS PATS PAT6 PAT? 
4664 re 165555 000001 177776 O00000 O00000 052525 007417 026455 
4665 re 133333 000003 177774 QOO0000 010421 052525 007417 026455 
4666 ‘* 165555 000007 177770 021042 2525 007417 026455 
4667 :8 133333 000017 177760 177777 031463 125252 170360 151322 
4668 re 000037 177740 177777 O48 25252 170360 151322 
4669 ‘* 133333 000077 177700 177777 052525 125252 170360 151322 
4670 re 000177 177600 063146 007417 0264 
4671 re 133333 7 177400 073567 007417 
4672 ‘* 000777 177000 777 (104210 125252 170360 151322 
4673 re 133333 001777 177777 114631 125252 170360 151322 
4674 re 003777 174000 125252 007417 64 
4675 rm 133333 007777 170000 177777 135673 125252 170360 151322 
4676 :% 017777 160000 146314 2525 007417 026455 
4677 rm 133333 037777 140000 177777 156735 125252 170360 151322 
4678 re 077777 100000 052525 007417 026455 
4679 is 133333 177777 000000 177777 177777 125252 170360 151322 
vest is PATS PAT 9 PAT 10 PAT 11 PAT 12 PAT 13 PAT 14 PAT 15 
4 GR we eeee  eeeeee  ceecee  ceecee  ceecrs  ceeess  seeees  e22--- 
4683 re 165555 000001 177776 172666 077777 153333 000000 177777 
4684 i* 133333 000002 177775 155555 137777 066667 177777 000000 
4685 it 177773 172666 157777 153333 177777 
4686 it 133333 000010 177767 155555 167777 066667 177777 000000 
4687 re 177757 172666 173777 153333 177777 000000 
4688 it 133333 OOOO4O 177737 155555 175777 066667 177777 000000 
4689 it 000100 177677 172666 176777 153333 177777 000000 
4690 i* 133333 000200 177577 155555 177377 066667 177777 000000 
4691 i* 177377 172666 177577 153333 177777 000000 
4692 re 133333 001000 176777 155555 177677 066667 177777 000000 
4693 eS 165555 002000 175777 172666 177737 153333 177777 000000 
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CZR JAC. P11 27-JUL-78 09: 18 T20 DATA TEST SEQ 0089 
6% 8 133333 OO4O000 173777 155555 177757 066667 177777 000000 
4695 ‘8 165555 010000 167777 172666 177767 153333 177777 000000 
4696 ‘8 133333 020000 157777 155555 177773 066667 177777 000000 
4697 re 165555 040000 137777 172666 177775 153333 177777 000000 
7 | + 133333 100000 077777 155555 177776 066667 177777 000000 
4700 
4701 +; SERTALALALATAAATAAAA AAS AAAA SALA AAAS TAL ATA LAAT TATA T LAAT TI Ts 
4702 015720 TST20: 
4703 015720 000240 NOP 
470% 015722 033737 001424 001236 BIT B1TS+<2082-40>, TSTNAS+2 =; D0 THIS TEST ? 
4705 015730 001002 BNE 64S YES--BRANCH 
4706 015732 000137 016440 JnP TST21 ;NO--GO TO THE NEXT TEST 
4707 015736 012737 000020 001102 64S: Mov #20. a@STSTNM + SET UP _ TEST NUMBER AND 
4708 CLEAR THE ERROR FLAG (SERFLG) 
4709 015744 004737 024612 JSR PC. LODPRM LORD THE PARMETERS FOR THE TEST 
4710 015750 012737 016122 001110 Mov STESTZ0.08SLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
4711 015756 013777 001102 163156 MOV STSTNM. @DISPLAY ; LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4712 015764 013737 001506 001204 Mov @ERPT, STIMES +GET THE ITERATION COUNT 
4713 015772 11 001364 001115 MOVB ER ’ MAX ERRORS ALLOWED FOR TEST 
4714 O 012737 016000 001106 ’ + SETUP THE LOOP ADDRESS 
4715 01 CLR R *CLEAR SWITCH 
4716 016010 CLR R4 FORM WORD COUNT IN RY 
4717 016012 013701 001526 MoV @ALs. Ri 
4718 016016 163701 001524 SUB ORFS, R1 
4719 016022 002004 BGE +BRANCH IF FS ¢ OR = LS 
016024 063701 001630 PRALMT +22, R1 ADD MAXIMUM SECTOR ADDRESS TO 
4721 016030 005201 INC ;MAKE THE DIFFERENCE POSITIVE 
4722 016032 005100 Con RO +SET SWITCH 
4723 016038 062704 000400 1$: AOD #256. .R4 
472% 016080 005301 DEC R1 
4725 016042 BGE 1$ 
4726 016084 005404 NEG R4 
4727 016046 010405 MoV R4Y.RS COPY NORMAL WORD COUNT INTO SMALL WC 
4728 016050 005700 TST RO SWITCH SET? 
4729 016052 001412 BEQ 3$ ; NO--BRANCH 
4730 016054 005005 CLR RS FORM WORD COUNT FOR LS < FS 
4731 016056 013701 001630 MoV PRMLMT +22, R1 
4732 016062 163701 001524 SUB @nFS.R1 
4733 016066 062705 000400 25: ADD #256. .R5 
4734 016072 006301 DEC R1 
4735 016074 002374 BGE 2$ 
4736 016376 005405 NEG RS 
4737 016100 113737 001524 004174 35: MOVB @8FS, @#DTADPB+10 ; SECTOR 
4738 016106 012737 047714 004172 Mov @BUFFER. @#DTADPB+6 ; DATA BUFFER 
4739 016114 012737 016436 001252 MoV #EX1T20, @#BYPASS 
4740 016122 012706 001100 TEST20: MOV @STACK. +LOAD THE STACK POINTER 
4741 016126 006037 001334 CLR @sWCEFLG +CLEAR THE WRITE CHECK ERROR FLAG 
4742 016132 013701 001510 MoV QNFC.R1 {PICKUP FIRST CYLINDER 
4743 016136 000407 ' BR 2$ 
4744 0161490 006720 1$: TST (RO)+ ;MOVE TO NEXT DATA PATTERN 
4745 0161492 022700 000040 CMP #16. 32. .RO QUT OF PATTERNS? 
4746 0161496 003004 BGT + NO--BRANCH 
4747 016150 004037 027632 JSR RO, af INCCYL MOVE TO gt CYLINDER 
4748 016154 000530 BR EX1T20 OUT OF CYL 


LINDERS 
4749 016156 005000 25: CLR RO + START WITH PATTERN O 








Pil 


001424 
001516 
004176 
004175 
004170 
001512 
000022 


004170 
162704 


001530 


162662 
001110 
004166 
162626 
001110 
004 166 


162564 
162554 
001110 
004166 
162520 


3s: BIT 


4$: nove 


55: nov 


6$: BIT 


7$: TST 


8$: BIT 


9S: JSR 


8 
EX1T20: SCOPE 


? 
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BITS(RO).@aPAT ; THIS PATTERN SELECTED? 
1$ + NO--BRANCH 

OaFT. RZ FIRST TRACK 

R1. @#OTADPB+12 > CYLINDER 

R2, @2OTADPB+11 =; TRACK 


RY, SBOTADPB+4 ; WORD COUNT 
LC.R1 ;LAST DISK CYLINDER? 
5$ ;NO-- H 
#18. .R2 ;LAST DISK TRACK? 
; NO-- BRANCH 
RS. @8OTADPb+4 ; SHORT WORD COUNT 
RI ; INHIBIT WRITE AND 
;WRITE CHECK? 
#SWO4 'SWO3. RI 
% + YES--BRANCH 
PC. ae@SE TBUF ; MOVE na PATTERN INTO THE BUFFER 
@SWO4, @SWR + INHIBIT WRITE? 
6% + YES-- RANCH 
#. , SLPERR + SETUP THE ERROR LOOP ADORESS 
@STACK, $ LOAD THE STACK POINTER 
$HRI TE, SAOTAOPB 42. ; ; COMMAND=WR ITE DATA 


RO. @#ORVCAL START A DATA TRANSFER 


@SWO3. @SUR + INHIBIT WRITE CHECK? 
7% + YES--BRANCH 
@. . SLPERR + SETUP THE ERROR LOOP ADDRESS 
¥ ;LORAD THE STACK POINTER 
@WRCKD. @ROTADPB+2 ; COMMAND=WRITE CHECK DATA 
’ + START A DATA TRANSFER 
@aWCEFLG +WRITE CHECK ERROR FLAG SET? 
8s 3 NO--BRANCH 
oe oon ; PERFORM RE READ AFTER FATAL “WCE”? 
oe cae fsa RERD DATA AND SOFTWARE COMPARE? 
#. , SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
@STACK. $ LORD THE STACK POINTER 
READ, a#OTADPB+2 ; COMMAND=READ 
RO. @#ORVCAL ; START A DATA TRANSFER 
@SWO1, dSUR i; COMPARE THE DATA? 
9$ NO--BRANCH 


PC, a#DATCHP ;YES--DO IT 
; af INCTRK ‘MOVE TO NEXT 
OUT OF TRACKS. So To NEXT PATTERN 


; : SCOPE LOOP 
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-SBTTL S888 EXERCISE TEST 222 


; SEGIIAATATAAAAAA AAA AALALAAAAAAAAAIA LALA TASAATAIATA IATA T TAIT 3s 
EST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 


STARTING AT “FC” AND GOING THROUGH "LC" THE DISK PACK 
1S WRITTEN WITH A RANDOM PATTERN THE FIRST TWO WORDS 
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
FOR THAT SECTOR. 

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE “R" TIMES 
"R” DEFAULTS TO 20. 000. 


GENERATE A RANDOM ADORESS 
WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1 


GENERATE A RANDOM ADDRESS 

READ THE 8 AT THE ADDRESS 
GENERATED IN 3. 

00 A SOFTHARE CHECK OF THE DATA READ IN 4. 
DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
GENERATE A RANDOM ADOR 

READ THE eg a AT THE ADDRESS 

GENERATED IN 7 

DO A SOFTWARE CHECK OF THE DATA READ IN 8 
DO A WRITE CHECK OF THE DATA WRITTEN IN 2 


1. gauaeer pantie segmiet Rane tisha nei seanneieh emmennenite: 


. 


PO BS BS DE FS FS FE FE FE FE FE FE OE FE FE FE FE FE FE TE p- be 
Onoecw fw NH 
—— wee we wr —~ 


ee ee ee ee ee ee ee ek 2) 


— 
ow 
a 


016440 

016440 000240 NOP 

O:6442 033737 001426 001236 BIT BI TS#<21%2-40>, TSTNNS+2 ;DO THIS TEST ? 
016460 001002 BNE 64S ; Ma no 

016452 000137 017216 JP TST22 +NO--GO TO THE NEXT TEST 


016456 012737 000021 001102 64S: MoV #21. deSTSTNM ;SET UP Test NUMBER AND 
+ CLEAR THE ERROR FLAG (SERFLG) 


01 004737 024612 JSR PC. LOOPRA +LORD THE PARMETERS FOR THE TEST 

016470 012737 016710 001110 MoV STEST2Z1.08SLPERR ; SETUP THE LOOP ON ERROR ADDRESS 

016476 013777 001102 162436 Mov § 2@DISPLAY ; LORD THE TEST NUMBER INTO THE DISPLAY REGISTER 
- 013737 001506 001204 Mov @eRPT, STIMES +GET THE ITERATION COUNT 

016612 113737 001364 001115 MOvVB ERR. CT. SERMAX > MAX ERRORS ALLOWED FOR TEST 

016620 012737 016520 001106 MoV &. . SLPAOR +SETUP THE LOOP ADDRESS 

016626 012737 017214 001252 MOV #€X1T21, aeBYPASS 

016638 012737 176643 023610 MoV 8176543, @8SHINUM ; PRIME THE RANDOM NUMBER GENERATOR 

016642 012737 123466 023612 Mov tizmese, onSt 

016660 013737 001510 004176 MoV @8FC. @#OTAOPB+12 ; CYLINDER 

016666 013737 001362 004170 MoV TRCKNC. @BDTADPB+4 > WORD COUNT 

016664 012737 047714 004172 MoV SBUFFER, aSOTAOPB+6 ; BUFFER ADDRESS 

016672 012737 000161 004166 MOV GURITE, BOTAOPB+2 ;C 

016600 032737 100000 001220 BIT @SW15, @@C. SUR ; WRITE THE DISK PACK BEFORE TESTING? 

016606 001027 BNE 3$ ANCH 

016610 004037 030770 JSR RO. OF ILRAN SPILL DATA ye 4 WITH RANDOM DATA 

tert 006037 004174 1$: CLR @#0TAOPB+10 + SECTOR AND TRACK 

16620 012737 016620 001110 MOV #. . SLPERR ;SETUP THE ERROR LOOP ADORESS 

gees 012706 001100 - MOV elias tha +LORO THE STACK POINTER 

016632 037 025526 JSR RO, @#ORVCAL + START A DATA TRANSFER 

016636 105237 0041 


75 ~ INCB @s0TADPB+1 1 NEXT TRACK 
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4851 016642 
4852 016650 


204 
4897 017210 
4898 017214 


2 
- 
2? 
& 


ercgzgse 
PERE ES 


3S: 


TEST21: 


Ex1T21: 


R 
SCOPE 


RANDOM ADDRESS AD RANDOM PATTERN TEST 


019. , S60TAOPB+11 ; TIME FOR NEXT CYLINDER 
NO--BRANCH 


aeoTAoPs+12 0 
24LC, @O0TADPO+12 ; OUT OF CYLINDERS? 


i$ 
SSCTRUC, a8OTADPE+4 ; WORD COUNT 
@TEST21. OOSLPAOR 
STEST21. OOSLPERR 
TACK. + SET STACK POINTER 
PAMROR NE 


UFFER.R1 “TOUR ER ADDRESS 
TROP B46 
RO. SERARPAT + GENERATE RANDOM PATTE 
ERR ; THE OR 


‘ + SETUP ERROR L 
STACK, # +LORD THE STACK POINTER 
Hy pot phe | ;START A DATA TRANSFER 


26 R ANAOR 
@RERD. @8DTADPB+2 ; COMMAND=READ DATA 
OBUFFER+512 . EDTADPB+6 ; BUFFER ADORESS 
@. . SLPERR + SETUP THE ERROR LOOP ADORESS 


aSTACK, LORD THE STACK POINTER 
RO, aBORVCAL ‘START A DATA aaenerhes 
RO. ot + CHECK 


ORMED 
@URCKD, SADTROPS: 42 + COMMAND=tR I TE a SS DATA 


ANSFER 
RO. BERANAOR +GENERATE A RANDOM ADDRESS 
@READ. @OTADPB+2 ; COMMAND=READ 

wert phe Tee id te BUFFER ADDRESS 


SLP + SE ROR LOOP ADDRESS 
STACK, as HE STACK POINTER 
RO. @BORVCAL +START A TR e 
 GERANCK aS T 


@# SVAOR +2, Qa0TAOPB +12 LAST WR 

@URCKO, a#OTADPB+2 COMMEND =U | TE CHECK DATA 
SBUFFER. a#OTADPB+6 ; DATA BUFFER ADDRESS 

@. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
@STACK, SP LORO THE STACK POINTER 

RO. @#ORVCAL START, A DATA TRANSFER 


.SBTTL 8% RPO ACCESS TIME ADJUSTMENT TEST 22% 
; : uae ae tad mented 


| 
i8 


T 22 
THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 136 TO ALLOW THE 


RPOY ACCESS TIME ADJUSTMENT TEST 


OPERATOR TO ADJUST THE ACCESS TIME ON AN RPOY USING THE 


CZRJAC RPO4/S/6 MECHANICAL AND READ/WRITE TEST 
27-JUL-78 O09: 18 122 


CZR JAC. P11 


4911 017216 
4912 017216 
017220 


104401 
000410 


005737 
001434 
104401 
000405 
013746 
104403 

002 


000 
104401 


017374 


001232 
017430 


001254 


017460 


;8 
Pe 


64s 


TEST22: 


EX1T22: 


MACY11 


Cc 8 
30A(1052) 27- JUL 


-78 09.24% PAGE 97 


RPOY ACCESS TIME ADJUSTMENT TEST 


THE PROGRAM STALLS 


APPROXIMATELY S SECONDS BETWEEN SEEKS 


OOU. 
SO THAT THE ACCESS TIME INDICATORS ON THE DOU MAY BE OBSERVED. 
: . pacman cate ee pte ta baa nt tetrtetat pet 


. WORD 
SCOPE 


81 1S+< 2282-40), T: 


STNNS+2 ;00 THIS TEST ? 
+ YES--68 


64S RANCH 
SEOP ;NO--GO TO THE END OF THE PROGRAM 
822. aeSTSTNM ;SET UP TEST NUMBER AND 
;CLEAR THE ERROR FLAG (SERFLG) 
PC. LODPRN + LORD THE PARMETERS FOR THE TEST 
STEST22,00SLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
STSTNM. 2DISPLAY ; LORD THE TEST NUMBER INTO THE DISPLAY REGISTER 
@ORPT. STIMES +GET THE ITERATION COUNT 
#100. . SERMAX MAX ERRORS ALLOWED FOR TEST 
GTEST22.SLPADR ; SETUP THE LOOP ADORESS 
STACK. # + SETUP THE STACK POINTER 
LC. OPB. A+12 ENDING CYLINDER 
SEEK. a@0PB. A+2 ; SEEK=COMMAND 
RO. @ACALL. A +GO EXECUTE THE COMMAND 
RO. STALL + STALL 
STALLS ADDRESS OF te VALUE 
FC. OPB. A412 ; STARTING CYLINDER 
@SEEK, @#0PB. A+2 ; SEEK=COMMAND 
RO. @ACALL. A ;G0 EXECUTE THE COMMAND 
RO, STALL + STALL 
STALL3 / ADORE SS OF STALL VALUE 


.SBTTL END OF PASS ROUTINE 
;; RESAASAAAAALALAALALAALAAAAA AAA A AAA AAAA ALAA ALAA AAA AAA AAE as 
;SINCREMENT THE PASS NUMBER (SP 


F THERES A MONITOR GO TO IT 


’ 


aT S$PASS) 
is INDICATE ENO-OF -PROGRAN AFTER 8. PASSES THRU THE PROGRAM 
aT 


F THERE ISN‘ 
SE OP: 
TYPE 
BR 
7+ 655: ASCIZ 
64S: 
TST 
BEQ 
oe 
3+ 67S: ASCIZ 
665: 
Vv 
TYPOS 
BYTE 
. BYTE 
TYPE 


T JUMP TO RESTART 


-65$ 


++ TYPE ASCIZ STRING 
T OVER THE ASCIZ 


64S :G 
<CR><LF><LF>/END OF PASS/ 


@#ORVSEL 

1$ 

,67$ 

66$ 

7 ON ORIVE/ 
@ACHKORV, - (SP) 


ow 


69% 


;ANY DRIVES SELECTED? 
;NO--BRANCH 

++ TYPE ASCIZ STRING 
++GET OVER THE ASCIZ 


++ SAVE @ACHKORV FOR {renee 
AL ASCI 


+s TYPE ASCIZ STRING 


SEQ 0093 
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Pil 27-JUL-78 09: 


4963 017456 


7630 
4994 017632 


000412 


017562 


017632 
000042 


377 


OF PASS ROUTINE 


++ 69S: 


+; 65S: 
645: 


$GET42: 


SENDAD: 


SDOAGN: 


SRTNAD: . 
000 SENULL: . 


. ASCIZ 


684 ++GE 
7 ERRORS DETECTED=/ 


@SSERTTL, - (SP) 


SDOAGN 
t +, @(PC)+ 


, 655 

64S 
<CR><LF>ZEND OF 
» SENULL 

842, R0 

SOOAGN 


PC, (RO) 
a(PC)+ 


RESTART 
-1,-1, 0 


0.8 
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SEQ 0094 
T OVER THE ASCIZ~ 


+ SAVE OSSERTTL FOR TYPEOU 
TYPE--OCTAL ASCIICALL o1Gits» 
; ZERO ERROR TOTAL 
++ ZERO THE TEST NUMBER 
++ ZERO THE NUMBER OF ITERATIONS 
‘i ty gd THE PASS NUMBER 
++ DON'T y ALLOW A NEG. NUMBER 


Pa 
+7 YES 
7+RESTORE COUNTER 


7+ TYPE ASCIZ STRING 
7;GET OVER THE ASCIZ 
TEST 7 
; TYPE NULL CHARACTER 
++ GET MONITOR ADDRESS 
+7GO TO MONITOR 
$3 E ROOM 

7 FOR 
SACI 
7;RETURN 
;+NULL CHARACTER STRING 


PEE ERE bri ttitrthitt tit 


—E 8 
AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 99 


RPO4/S/6 MECHANICAL 
Pu 27-JUL-78 09: 18 END OF PASS ROUTINE 
.SBTTL 883 SYSMAC SUBROUTINES 223 
.SBTTL ERROR HANDLER ROUTINE 
3 Sere meet ter ett tetieeten ta tieee fede on hd fanaa tae 
+STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;SSAVE THE ER RoR (TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
| SAND GO TO TYPERR ON ERROR 
; STHE _ ries PROVIDED BY THIS ROUTINE ARE: 
+ 8SuW15=1 HALT ON 
; 8SW1i3=1 wag ERROR TYPEOUTS 
+ 8SW10=1 BELL ON ERROR 
oo, LOOP ON ERROR 
;% ERROR WN +; ERROR=EMNT AND N=ERROR ITEM NUMBER 
017636 SERROR: 
017636 104407 CKSWR 7; TEST FOR CHANGE IN SOFT-SWR 
017640 032777 OO0400 161272 BIT #SHO8, @SWR ;SEND ERROR MESSAGE TO TTY? 
017646 001411 BEQ 7$ ; ; YES-- BRANCH 
17650 005737 001230 TST @éLPTAVL 1S THERE A LINE PRINTER AVAILABLE? 
017654 001406 BEQ 7$ ++ i BRANCH 
013737 001420 001150 Mov @ELPS. aaSTPS ; YES--SETUP STA TUS 
01766% 013737 001422 001152 Mov @4LPB. aaSTPB ;AND BUFFER REG. 'S FOR LINE PRINTER 
017672 105237 001103 7$: INCB SERFLG 33 SET THE ERROR FLAG 
017676 001775 BEQ 7$ +; D0N'T LET THE FLAG GO TO ZERO 
017700 013777 001102 161234 MoV STSTNM. DISPLAY ;; DISPLAY TEST NUMBER AND ERROR FLAG 
032777 002000 161224 BIT #61710. aSwR +; BELL ON ERROR? 
017714 001402 Q 1$ 33 - SKIP 
017716 104401 001210 TYPE , SBELL ;;RING BELL 
017722 005237 001112 1$: INC SERTTL +; COUNT THE NUMBER OF ERRORS 
1°726 011637 001116 Mov (SP), SERRPC ;;GET ADORESS OF ERROR INSTRUCTION 
017732 162737 2 001116 SuB #2. SERRPC 
017740 117737 161152 001114 MOVB @SERRPC.SITEMB ;; STRIP AND SAVE THE ERROR ITEM CODE 
017746 032777 161164 BIT #81713. aSHR +; SKIP TYPEOUT IF SET 
017754 001004 BNE 20$ +; SKIP TYPEOUTS 
017756 004737 020056 > JSR PC, TYPERR +:GO TO USER ERROR ROUTINE 
017762 104401 001215 TYPE , SCRLF 
017766 205: 
017766 005777 161146 25: TST @SWR 7; HALT ON ERROR 
017772 100002 BPL 3$ ' +; SKIP IF CONTINUE 
017774 000000 HALT 7; HALT ON ERROR! 
017776 104407 CKSWR ++ TEST FOR CHANGE IN SOFT-SUR 
020000 032777 001000 161132 35: BIT #81709. aSWR +t’ ON ERROR SWITCH SET? 
020006 001402 BEQ 4g ;BR IF NO 
020010 013716 001110 MoV SLPERR. (SP) ; | FUDGE RETURN FOR LOOPING 
020014 005737 001206 4§: TST SESCAPE > CHECK FOR AN ESCAPE ADDRESS 
020020 001402 BEQ 5$ 37 BR 1F NONE 
020022 013716 001206 os MoV SESCAPE. (SP) +; FUDGE RETURN ADDRESS FOR ESCAPE 
Gsoece 023737 000042 000046 CMP 2842, a846 ;ACT11 AUTOMATIC MODE? 
020034 001001 BNE 6$ NO. CONTINUE 
020036 000240 NOP 
020040 013737 001414 001150 6%: MoV Qe TPS, aasTPS +SET STATUS AND BUFFER REG. 'S 
020046 013737 001416 001152 MoV @e TPB. aasTPB ;FOR TTY 


CZR JAC 
CZR JAC. Pit 27-JUL-78 09: 18 
5052 020054 000002 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 020056 113737 001102 001176 
5065 020064 104412 

5066 020066 162 

5067 020072 O01 001162 
5068 020076 010137 001164 
5069 020102 010237 001166 
5070 020106 010337 001170 
5071 020112 010437 001172 
5072 020116 010537 001174 
5073 020122 113700 001114 
5074 020126 010001 

5075 020130 300 

5076 020132 106300 

5077 020134 106300 

5078 020136 106300 

5079 020140 103002 

5080 020142 062700 000240 
5081 020146 062700 004 
5082 020152 012037 020166 
5083 020156 001447 

508% 020160 104401 001215 
5085 020164 104401 

5086 020166 

5087 020170 162701 000041 
5088 020174 100440 

5089 020176 013701 001260 
5090 020202 106301 

5091 020204 1 

5092 020206 012702 004254 
5093 020212 3 

509% 020214 104401 020222 
5095 000402 

5096 

5097 020226 

6098 020226 012237 020250 
5099 020232 301 

5100 020255 103013 

5101 020236 005103 

5103 G20m2 towo1 001215 
5104 Oc026 104401 

5105 020250 

51 020252 70 

5107 020254 001403 


F 8 
RPO4/5/6 MECHANICAL AND a TEST MACYI1 aie 27-JUL-78 09:24 PAGE 100 


RROR HANDLER ROUT 


RTI 


RETURN FROM ERROR CALL 


+; SESTASAAATATAAAA LITA AARALAAA TARAS AAA AAT ATAS TATA LTA SeTA TTI s Ts 
SBTTL TYPERR - TYPE ERROR ROUTINE 

7 THIS ROUTINE 
*WHICH ERROR 1S TO BE REPORTED, IT THEN OBTAINS. FROM THE “ERROR 
+ TABLE” (SERRTB). wf REPORTS THE APPROPIATE INFORMATION 


; CONCER 
7 CALL 


, 


TYPERR: 


1$: 


2$: 


+: 655: 


4§: 
55: 


USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE 


NING THE ERROR 

JSR PC, @aTYPERR 

RETURN 

MOvB @ESTSTNIL GRSTNPO ; SAVE THE TEST NUMBER 
SAVREG ;SAVE RO - R5 

SUB #4,R0 FORM TEST PC 

MoV RO. @#SREGO +COPY RO-RS IN SREGO-SREGS 
Mov Ri, ORSREGI 

Mov R2. @RSREGZ 

MoV R3. SASREGS 

MoV RY, @ASREGY 

MOV RS. @#SREGS 

Move 451 TENB, RO +PICKUP ERROR ITEM NUMBER 
Mov RO, R1 AND COPY IT INTO Ri 

DEC RO FORM INDEX FOR ERROR TABLE 
ASLB RO 

ASLB RO 

ASLB RO 

BCC 1$ 1S ERROR > 377 

ADD #1 TEM41-SERRTB, RO; ; YES--FORM OFFSET 

ADD #SERRTB.RO ; FORM ADORESS 

Mov (RO)+, 25 +GET ERROR MESSAGE (EM) POINTER 
BEQ 7$ +BRANCH IF THERE ISN'T ONE 
ha - SCRLF "CARRIAGE RETURN - LINE FEED 
.WORD QO "EM" POINTER GOES HERE 

SUB #41,R1 SPECIAL ERROR ITEM NUMBER? 
BMI 7$ + NO--BRANCH 

MoV @ASVSTAT. R1 GET STATUSZERROR INDICATOR 
ASLB Ri “ BIT (B81TO7) 
ASL R1 STRIP “ERROR” BIT (B1T15) 
MoV @STATBL.R2 1ST ADDRESS ON STATUS MESSAGE POINTERS 
CLR R3 + CARRIAGE RETURN-LINE FEED SWITCH 
TYPE , 65% +; TYPE ASCIZ STRING 

BR 64S +;GET OVER THE ASCIZ 

ASCIZ 7 (/ 

MOV (R2)+, 5$ +MESSAGE POINTER 

ASL R1 + TYPE THIS MESSAGE? 

BCC 6$ + NO--BRANCH 

COM R3 +YES--TYPE A “CR” & "LF"? 
BNE 4$ + NO--BRANCH 

TYPE » SCRLF + YES 

TYPE 

.WORD QO +MESSAGE POINTER GOES HERE 
TST R1 +MORE TO TYPE? 

BEQ 6$ + NO--BRANCH 
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020276 
020302 


044042 


020274 


020312 
001215 


001215 


044042 


001215 


044042 
020420 


001215 


044042 


TYPERR - TYPE ERROR ROUTINE 


6$: 


++ 67%: 
665: 


7S: 


8$: 
9S: 


105: 
115: 


125: 


13$: 


14$: 


155: 


16%: 


175: 
205: 


-MSG. SP 
3$ 

3$ 
-67$ 
665 
47 
(RO)+, 8S 
- SCRLF 


0 
(RO)+,R1 
208 


.40)4,R0 
(RO)+,R2Z 
178 


RS 

- SCRLF 
(RO)+,R3 
(RO)+,R4 

R4 

128 
@(R1)+,-(SP) 
13$ 


@(R1)+,-(SP) 


-MSG. SP 
(RO)+, 168 


0 

- SCRLF 
RS 

10$ 

- MSG. SP 
10$ 


PC 


.SBTTL TYPE ROUTINE 
++ RERAAAATAATARAAA AAT ALAA AAA A AAAS AAA ATA AAA AA AAA AAA AAA ATTA TAs 
NE TO TYPE ASCIZ MESSAGE. MESSAGE MUST 


+ SROUTI TE 
;STHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


G 8 
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Tage SPaces 


; H_IF NOT FINISHED 
++ TYPE ASCIZ STRING 
++GET OVER THE ASCIZ 


7PICK UP DATA HEADER (DH) POINTER 
+ BRANCH IF 
+ CARRIAGE RETURN-LINE FEED 


+"DH" POINTER GOES HERE 

PICKUP DATA TABLE (OT) POINTER 
+ BRANCH IF NONE 

+SET INDENT SWITCH 

DATA FORMAT (DF) POINTER 
+NUMBER OF DH'S TO TYPE 

; BRANCH IF OH NUMBER IS 0 


+ CARRIAGE RETURN-LINE FEED 
+NUMBER OF DATA WORDS TO TYPE 


; TYPEOU 
260 TYPES -OCTAL ASCII CALL DIGITS) 


++ SAVE @(R1)+ FOR TYPEOUT 

+;GO TYPE--DECIMAL ASCII WITH SIGN 
+MORE NUMBERS TO TYPE? 

+ NO--BRANCH 

+ YES--TYPE SEPERATORS 


; ANCH 

; YES--START A NEW LINE 

+ INDENT? 

+ NO--BRANCH 

fs: prt SPACES 

+GET NEXT DH 

+AND TYPE IT 

; DH POINTER GOES HERE 
+ CARRIAGE RETURN-LINE FEED 

+ INDENT? 

; NO--BRANCH 

+ YES--TYPE SPACES 
LOOP 


‘RESTORE RO - RS 
+ RETURN 


TERMINATE WITH A O BY 





SEQ 0097 


Neneun—-o 


so 
Oo 8 
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Pi 27-JA-78 09: 18 TYPE ROUTINE SE@ 0098 
; SNOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; SNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
+ ata SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
; SCALL: 
381) ) USING A TRAP INSTRUCTION 
+ YPE , MESAOR +; MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 
8 TYPE 
8 ME SADR 
:8 
020444 105737 001157 STYPE: TSTB STPFLG 3, 1S THERE A TERMINAL? 
020450 100002 BPL ib) 776R Ff 
020452 000000 HALT cat MERE IF NO TERMINAL 
0204654 000407 BR 3$ ++ LEAVE 
020856 010046 1$: nov RO, -(SP) RO 
020860 017600 000002 nov @2(SP), RO 33 GET ADORESS OF ASCIZ STR 
020464 112046 2s. nove (RO)+, -(SP) +; PUSH CHARACTER TO BE TrPeD ONTO STACK 
020466 001005 BNE ug 7788 IF IT ISN'T THE TE T 
020470 005726 TST (SP) 77 1F TERMINATOR POP IT OFF THE STACK 
020472 012600 605: nov (SP 4, RO +, RESTORE RO 
020474 062716 000002 3$: ADD #2. (SP) +; ADJUST RETURN PC 
020500 000002 RTI +; RETURN 
0206502 122716 000011 4§. CnhPB HT, (SP) +; BRANCH IF <HT> 
020506 001430 BEQ 
020510 122716 000200 ChPB @CRLF. (SP) >; BRANCH IF NOT <CRLF> 
02051% 001006 BNE 5$ 
020516 005726 TST (SP )+ ;;POP <CR><LF> EQUIV 
020520 104401 TYPE +; TYPE A CR AND LF 
020522 001215 SCRLF 
020524 020660 CLRB SCHARCNT 3; CLEAR CHARACTER COUNT 
020530 000755 BR 23 ;;GET NEXT CHARACTER 
020532 004737 020614 5s: JSR PC, STYPEC ;;GO TYPE THIS CHARACTER 
020536 123726 001156 6$: CnhPB SF ILLC. (SP)+ 3271S tT TIME FOR FILLER CHARS. ? 
020542 001350 BNE 23 ++ 1F NO GO GET NEX 3 
020564 013746 001154 nov SNULL. - (SP) +;GET @ OF FILLER CHARS. NEEDED 
+; AND THE NULL CHAR. 
020550 105366 000001 7$: DECB 1(SP) +;DOES A NULL NEED TO BE TYPED? 
020554 002770 BLT 6$ ;;8R IF NO--GO POP THE NULL OFF OF STACK 
020556 004737 020614 JSR PC, STYPEC +;GO TYPE A NULL 
020562 105337 020660 DECB SCHARCNT +;D0 NOT COUNT AS A COUNT 
020566 000770 BR 7$ sat 
;HORIZONTAL TAB PROCESSOR 
020570 112716 000040 8$: Move a’ (SP) 51 Cer aes TAB WITH SPACE 
020574 004737 020614 95: JSR PC, STYPEC +: TYPE A SPACE 
020600 132737 000007 020660 81T8 #7. SCHARCNT +; BRANCH IF NOT AT 
020606 001372 BNE 9$ +; TRB STOP 
genet? 005726 TST (SP )+ +; POP SPACE OFF STACK 
12 000724 BR 2$ +; GET NEXT CHARACTER 
020614 105777 160330 STYPEC: TSTB asTPs +; WAIT UNTIL PRINTER 1S READY 
020620 100375 BPL STYPEC 
020622 116677 000002 160322 Move 2(SP). aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
020630 122766 000015 000002 CnPB @CR, 2(SP) +; 1S CHARACTER A CARRIAGE RETURN? 





an 
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5257 


SSSSSSERSRREERER SD 
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Pi 


020664 
020670 
020676 
020702 
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001003 
105037 


000406 
122766 
001402 
105227 
000000 


000207 


BHF 


020660 
000012 


021111 
000002 


021111 


000002 


021107 


021107 
021111 
021106 


8 
RPO4/5/6 MECHANICAL oy READ/UR ITE ter neuriee 30A( 1052) 27° suL-78 09:24 PAGE 103 


BNE 1$ +; BRANCH IF NO 
; CLRB SCHARCNT i YES" =CLERR CHARACTER COUNT 
BR STYPEX ++EXI 
1%: ChPB @LF.2(SP) #1S eee be A LINE FEED? 
BEQ STYPEX +; BRANCH IF YES 
INCB (PC)+ ++ COUNT THE CHARACTER 
CNT:. WORD O +; CHARACTER COUNT STORAGE 


SCHAR 
STYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


+ SESTITATATALALAA SALT SALAAALALTAA LATA AAA TATA ALAA TAAL TTT ITs 

THIS ROUT! np 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
OCTAL (ASCII) NUMBER AND TYPE IT. 

Hii Sate HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


Mov NUM - (SP) 7; NUMBER TO BE TYPED 

TYPOS ;;CALL FOR TYPEOUT 

.BYTE WN ;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
.BYTE A ;:M=1 OR O 


+2 1=TYPE LEADING ZEROS 
+; O0=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
 ASTYPOS OR STYPOC 


ee ee ee ee ee ey 


Ft PE DE FS TE FE TS DE FG DS DE DE HE OE OE OS FE OS OE OE TO 
a [mn lanl 


MoV NUM. - (SP) +; NUMBER TO BE TYPED 
TYPON +; CALL FOR TYPEOUT 
ASTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
MoV NUM, - (SP) +; NUMBER TO BE TYPED 
TYPOC +-CALL FOR TYPEOUT 
STYPOS: MOV a(SP),- (SP) ++PICKUP THE MODE 
Move 1(SP), SOF ILL ++ LOAD ZERO FILL SWITCH 
Move (SP )+, SOMODE+1 ;NUMBER OF DIGITS TO TYPE 
ADD #2. (SP) ;; ADJUST RETURN ADDRESS 
BR STYPON 
STYPOC: MOVB #1, SOF ILL +;SET THE ZERO FILL SWITCH 
nove #6, SOMODE +1 ++ SET FOR SIX(6) DIGITS 
STYPON: MOVB #5, SOCNT +; SET THE !TERATION COUNT 
Mov R3.-(SP) ++ SAVE R2 
mov R4,-(SP) ++ SAVE RY 
mov RS. -(SP) ++ SAVE RS 
te eee ee ++GET THE NUMBER OF DIGITS TO TYPE 
ADD #6.R4 +; SUBTRACT IT FOR MAX. ALLOWED 
Move R4, SOMODE +; SAVE IT FOR USE 
Move SOF ILL. RY ++ GET THe ZERO FILL SWITCH 
mov 12(SP).R5 +;PICKUP THE INPUT NUMBER 
CLR R3 +7 CLEAR THE OUTPUT WORD 
1$: ROL RS +;ROTATE MSB INTO "“C" 


BR 3$ ++GO DO NSB 
2$: ROL RS +2 FORM THIS DIGIT 





CZRIAC RPOS/S/6 
CZR JAC. P11 27-JU-78 09: 18 BINARY TO OCTAL (ASCII) AND TYPE 
| 020776 006105 ROL RS 
021000 006105 ROL RS 
sore 021002 010503 nov RS. RI 
021008 006103 3S: ROL R2 
5280 021006 105337 021110 DECB SOMODE 
5281 021012 100016 BPL 7¢ 
$282 021018 042703 177770 BIC &) 77770.R3 
5283 021020 001002 BNE 4$ 
5284 021022 704 TST 4 
$285 021028 001403 BEQ 5$ 
$286 021026 204 4$ INC 
5287 021030 052703 000060 BIS #'O.R3 
5288 02108 2703 000040 5$ BIS -R3 
5289 021080 110337 021104 no R3. 8S 
5290 0210848 104401 021104 TYPE -8$ 
5291 021050 105337 021106 7$: DECB SOCNT 
5292 021054 003347 BGT 2$ 
5293 021056 002402 BLT 6$ 
529% 021060 005204 INC R4 
5295 021062 000744 BR 2$ 
529% 021064 012605 65: Mov (SP 4, R5 
5297 021066 012604 MoV (SP 4, R4 
5298 021070 012603 Mov (SP )4+,R3 
5299 021072 016666 000002 000004 Mov 2(SP), 4(SP) 
5300 021100 012616 Mov (SP +, (SP) 
5301 021102 000002 RT! 
021104 000 8$ .BYTE 90 
021105 000 .BYTE 0 
1106 000 SOCNT: .BYTE 0 
000 SOFILL: .BYTE 90 
021110 000000 : dD. 60 


minutus 
soSgeeeaees 
=e 
i =) N 

i=] 

i) 

os 

° 
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st DO THE LAST DIGIT 


ii RESTORE R 


ORAGE FOR ASCII DIGIT 
++ TERMINATOR FOR TYPE ROUTINE 
_ —— 


; NUMBER OF DIGITS TO TYPE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
iG ord Gituat ih caee tb freed B LAait human nade te Pat 
S ROUTINE we any HANGE A 16-BIT BINARY NUMBER TO A 


;3THI C 5-DIGIT 
+3SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
6313 + SNUMBER 1S POSITIVE OR fais A SPACE OR A MINUS SIGN WILL BE TYPED 
5314 +SBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
5315 + SREPLACED WITH SPACES. 
5316 ; SCALL: 
6317 > | MoV NUM, - (SP) +;PUT THE BINARY NUMBER ON THE STACK 
itt] Pe | TYPOS ++GO TO THE ROUTINE 
6320 021112 STYPDS: 
6321 021112 6 v RO. -(SP) ++PUSH RO ON STACK 
$322 021114 010146 MoV R1,-(SP) +;PUSH R1 ON STACK 
6323 021116 010246 MoV R2,-(SP) ++PUSH RZ ON STACK 
6324 021120 010346 Mov R3,-(SP) ++ PUSH R3 ON see 
$326 02112% 012746 020200 MoV #20200, -( SP) ++ SET BLANK Sil TCH AND SIGN 
$327 021130 016605 000020 MoV 20(SP). RS +;GET THE INPUT ER 
5328 021134 100004 BPL 1$ +; BR IF INPUT IS POS. 
5329 021136 006405 NEG RS 3 THE 8 Y NUMBER POS 
6330 021140 112766 000055 000001 MOvVB #'-,10SP) ; E THE ASC! NUMBER NEG. 
5331 021146 005000 15: CLR RO 1 ZERO THE CONSTANTS INDEX 
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Pil 27-JU-78 09: 18 CONVERT BINARY TO DECAL AND TYPE ROUTINE SEQ 0101 


021150 021326 S@SO0BLK, RI +; SETUP THE OUTPUT POINTER 

021154 1 000040 a . (R34 ++ SET THE FIRST CHARACTER TO A BLANK 

021160 005002 2s: R2 +; CLEAR THE BCD NUMBER 

021162 021316 SOTBL (RO). R1 ie THE CONSTANT 
3$ R1,R5 +7FORM THIS BCO DIGIT 


ey 776R IF 
R2 +; INCREASE THE BCD DIGIT BY 1 


3$ 
4$: ADD R1,R5 +; ADO BACK THE CONSTANT 
R2 3 CHECK iF BCD DIGIT=0 


5$ iFALL THROUGH IF 0 
(SP) ii STILL DOING LEADING O'S? 
7$ i7OR IF YES 


(SP) oa ? 
6$ +;6R IF NO 
177777 1(SP),-1(R3) +2 YES--SET THE SIGN 
6 #'O.R2 ++ WAKE THE BCD DIGIT ASCII 
sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
2 PUT THIS tape he IN THE OUTPUT BUFFER 
3; JUST INCREMENTING 
+; CHECK THE TABLE INDE X 
+;G0 OO THE NEXT DIGIT 
+:GO TO EXIT 
+;GET THE LSO 
4a CHANGE TO ASC! 
+ WAS P, % THE First NON-ZERO? 


9$ 
177777 177776 ~1(SP),-2(R3) YES-<SET THE at od FOR TYPING 
9S: (R3) ++ SET THE TERMINA 
(SP )+,R5 +2POP STACK INTO Rs 
(SP )+,R3 +;POP STACK INTO R3 
(SP )+,R2 i4 
(SP )+,R1 
(SP )+, RO 


- SOBLK ; NUM 
2(SP), 4 (SP) +;ADJUST THE STACK 
(SP )+, (SP) 

++ RETURN TO USER 


S88 
Dod ee 


ee ce oe eB me eh pe me mt et edt pet ee oe ee oe eh oe ed oe Oo oe et ee et ed el oe ed 


SSSINSRERIRESIAESERR 


bt id 
eS oc ot 
eetw 


SOTBL: 


S588 


10. 
SOBLK: .BLKW 4 
.SBTTL TTY INPUT ROUTINE 
ia "ar € *  ipgmpenematennae cei tae cael aan etianeatatahe it 


+;NUMBER OF ITEMS IN QUEUE 
7; INPUT POINTER 
+, OUTPUT POINTER 
ost +2 TTY KEYBOARD QUEUE 
=. 


+8TK INITIALIZE ROUTINE 
+STHIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 


ZR JAC 

ZR JAC. 
5332 
$333 
5334 
5335 
5336 
$337 
5338 
5339 
5340 
51 
5342 
53453 
5344 
5345 
546 
547 
548 
549 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
S364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
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Pil -27-JUL-78 09: 18 TTY INPUT ROUTINE SEQ 0102 
;8SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
; SCALL: 
8 JSR PC, STKINT 
ok RETURN 
021346 005037 021336 STKINT: CLR STKCNT 7; CLEAR COUNT OF ITENS IN QUEUE 
021352 012737 021344 021340 nov SSTRQSRT. STKQIN ROVE THE STARTING ADORESS OF THE 
021360 013737 021340 021342 MOV STKQIN, STKQOUT ;: QUEUE INTO THE INPUT & OUTPUT POINTERS. 
021366 012737 021416 000060 MOV OSTKSRV, ABTKVEC :: INITIALIZE THE KEYBOARD VECT 
021374 012737 000200 000062 HOV €200, a8TKVEC4+2_ ;: "BR" LEVEL 
021402 005777 157540 TST asTKB CLEAR’ BONE F LAG 
021406 012777 000100 157530 nov #100, aSTKS 7; ENABLE TTY KEYBOARD INTERRUPT 
021414 000207 RTS PC 77 RETURN TO CALLER 


+BTK SERVICE ROUTINE 

+BTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

+ 3BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

+31T IN THE QUEUE. 

+31F THE CHARACTER IS A “CONTROL-C" ( C) STKINT IS CALLED AND 

+ SUPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (STARTZ2) 


021416 117746 157524 STKSRV: MOVB @STKB, -(SP) ++PICKUP_ THE CHARACTER 
021422 042716 177600 BIC @ C177, (SP) STRIP THE JUNK 
021426 021627 000003 CMP (SP), #3 +718 1T A CONTROL C? 
021432 001007 BNE 1$ ++ BRANCH IF NO 
021434 104401 022546 TYPE - SCNTLC +2 TYPE A CONTROL-C ¢ C) 
021440 004737 021346 JSR PC, STKINT +2 INIT THE KEYBOARD 
021444 005726 TST (SP }+ ++ CLEAN UP STACK 
021446 000137 004660 JnP START2 +, CONTROL C RESTART 
021452 021627 000007 1$: CMP (SP), #7 +2 1S iT A CONTROL G? 
021456 001004 BNE 2$ ++ BRANCH IF NO 
021460 022737 000176 001140 CMP #SWREG, SUR ++ 1S SOFT- ae SELECTED? 
021466 001500 BEQ 6$ ++GO TO SWR CHANGE 
021470 2s: 
021470 022737 000002 021336 CMP #2, STKCNT ++ 1S THE QUEUE FULL? 
021476 001004 BNE 3$ ++ BRANCH IF NO 
021600 104401 001210 TYPE - SBELL +2RING THE TTY BELL 
021504 005726 TST (SP )+ tg CHARACTER OFF OF STACK 
021606 000451 BR 5$ s EXIT 
021610 021627 000023 3S: CMP (SP), #23 +2 1S tT A CONTROL-S? 
021618 001021 BNE 328 +2 BRANCH IF NO 
021616 006077 157422 CLR @sTKS ++DISABLE TTY ee INTERRUPTS 
021622 005726 TST (SP )+ +; CLEAN CHAR OFF STAC 
021628 105777 157414 315: TSTB @sTKS +; WAIT FOR A CHAR 
021630 100375 BPL 318 +;LOOP UNTIL ITS THERE 
021632 117746 157410 MOVB @STKB, -(SP) ++GET THE CHARACTER 
021636 042716 177600 BIC # C177, (SP) +s MAKE IT 2-BIT ASCII 
642 022627 000021 CMP (SP )+, #21 +2 1S IT A CONTROL-Q? 


021 

021646 001366 BNE 31$ ++ BRANCH IF _NO 

021660 012777 000100 157366 MOV #100, asTKS ii REENABLE Ty KEYBOARD INTERRUPTS 
021666 000002 RTI ++ RETURN 

021660 0606237 021336 32$: INC STKCNT +; COUNT THIS CHARACTER 

021664 021627 000140 CMP (SP), #140 ++ 1S _1T UPPER CASE? 

021570 002405 BLT 4§ ++ BRANCH IF YES 
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Pi 27-JUL-78 09: 18 TTY INPUT ROUTINE SEQ 0103 
021572 021627 000175 CMP (SP), 8175 +718 IT A SPECIAL CHAR? 

021576 003002 BGT 4$ ++ BRANCH IF YES 

021600 042716 000040 BIC #40, (SP) +7 WKE IT ‘ee CASE 

021608 112677 177530 4$: nove hal @STKQIN =; AND PUT IT IN QUEUE 

021610 005237 021340 INC STKQIN UPDATE THE POINTER 

021614 023727 021340 021346 CMP STKGIN. @STKQEND 3360 OFF THE END? 

021622 001003 BNE + BRANCH IF NO 

021624 012737 021344 021340 nov @STKQSRT. STKQIN 3; RESET THE POINTER 

021632 000002 5S: RTI +2 RETURN 


ie S8588585385582802588508 528228890898 098850850890 85089070008 222 
+ SSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;SROUTINE 1S ENTERED FROM THE TRAP HANDLER. AND W 

+SSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


7 S3CALL WHEN OPERATING IN TTY INTERRUPT MODE. 

021634 022737 000176 001140 $c KSWR: CHP #SWREG. SHR 77 1S THE SOFT-SWR SELECTED’ - 

021642 001124 BNE 15$ ;7EXIT IF NOT 

021644 105777 157274 TST8 @sTKSs +718 A CHAR WAITING? 

021650 100121 BPL 15$ 77 1F NOT. EXIT 

021652 117746 157270 Move @STKB, -(SP) 

021656 042716 177600 BIC @ C177. (SP) +S MAKE 17 7-BIT ASCII 

021662 021627 000007 CnP (SP), #7 7218 tT A CONTROL-G? 

021666 001300 BNE 2$ 3; 1F NOT. PUT IT IN THE TTY QUEUE 

77 RND EXIT 

oe Fantaae ta paaaee te ont Poteet teen dite tae ite idee a 
;SCONTROL 1S PASSED TO THIS POINT FROM EITHER ym NTERRUPT SERVICE 
7 SROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TR on Cre AS A RESULT OF A 
; SCONTROL-G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

021670 123727 001134 000001 65: ChPB SAUTOB. #1 7; ARE WE RUNNING IN AUTO-NODE? 

021676 001674 BEQ 2s :3 BRANCH iF YES 

021700 005726 TST (SP )+ ; CLEAR CONTROL - G OFF STACK 

021702 004737 021346 JSR PC, STK INT 7 FLUSH THE TTY INPUT QUEUE 

021706 005077 157232 CLR esTKS +;DISABLE TTY KEYBOARD INTERRUPTS 

021712 112737 000001 001135 Move #1, SINTAG +2-SET INTERRUPT MODE INDICATOR 

021720 104401 022560 TYPE - SCNTLG ++ECHO THE CONTROL-G ( G) 

021724 104401 022565 SGTSWR: TYPE , SMSWR +; TYPE CURRENT CONTENTS 

021730 01374— 000176 Mov SWREG. -(SP) +; SAVE SWREG FOR TYPEOUT 

021734 104402 TYPOC ;:G0 TYPE--OCTAL 7 DIGITS) 

021736 104401 022576 TYPE , SMNEW 77 PROMPT FOR NEW 

021742 006046 19$: CLR - (SP) +; CLEAR COUNTER 

021744 005046 CLR -(SP) 77 THE NEW SUR 

021746 105777 157172 7$: TSTB esTKS 7; CHAR THERE? 

021752 100375 BPL 7$ 77 1F NOT TRY AGAIN 

021764 117746 157166 Move @STKB. -(SP) +7PICK UP CHAR 

021760 042716 177600 BIC @ C177, (SP) +-MAKE IT 7-BIT ASCII 

021764 021627 000003 CMP (SP), #3 7718 1T A CONTROL-C? 

021770 001015 BNE +} ‘ >; BRANCH IF OT 

021772 104401 022546 TYPE , SCNTLC 7: YES. ECHO CONTROL-C (¢ C) 

021776 062706 000006 ADD #6, SP +; CLEAN UP STACK 

022002 123727 0011365 000001 CMPB SINTAG. #1 +;REENABLE TTY KEYBOARD INTERRUPTS? 

022010 001003 BNE By +; BRANCH IF NO 

022012 012777 000100 157124 MoV #100, aSTKS ;; ALLOW TTY KEYBOARD INTERRUPTS 
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022020 


022176 
022200 


000137 


000015 
000004 
000002 


000006 
001215 
001135 


000100 


020614 
000060 


000067 
000060 
000002 


0090002 
177776 


001214 


000004 
000004 
022222 


021336 


157052 


000001 
157030 


000002 


TTY INPUT ROUTINE 
8s: snp STARTZ 
9S: chp (SP), #25 
BNE 10% 
TYPE - SCNTLU 
205: ADD #6, 
BR 198 
105: cnP (SP), 815 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
nov 2(SP), @SUR 
14$: TYPE - SCRLF 
ChPB SINTAG. #1 
BNE 15$ 
MoV #100, aSTKS 
155: RTI 
16S: JSR PC, STYPEC 
CMP (SP), #60 
BLT 18$ 
CMP (SP), #67 
BGT 
BIC #60, (SP )+ 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17%: INC 2(SP) 
BIS -2(SP), (SP) 
BR 7$ 
185: TYPE - SQUES 
BR 20$ 


.OSABL LSB 


N 8 
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++ CONTROL-C RESTART 


+718 tT A CONTROL-U? 
ANCH IF 


7 


Cc OL 
++ IGNORE PREVIOUS INPUT 
+sLET'S TRY IT AGAIN 


71S IT A <CR>? 
; H_ IF _NO 
++ YES. 1S IT THE FIRST CHAR? 
;BRANCH IF YES 


<«LF> 
+;RE-ENABLE TTY KBD INTERRUPTS? 
+; BRANCH IF NOT 
:/RE-ENBLE TTY KBD INTERRUPTS 
+; ECHO CHAR 
ase <« 0? 
+; BRANCH IF YES 
+; CHAR > 77? 
«  BRreich iF YES 
3; STRIP-OFF ASC! 
bi : 1S THIS -s FIRST CHAR 


33 OOM FOR NE é 
+; KEEP COUNT OF CHAR 
+;SET IN NEW CHAR 

+; GET THE NEXT ONE 

7; TYPE ?7<CR><LF> 

+; SIMULATE CONTROL-U 


++ RERAAAAAAATASAAAAAL ALAA A AAA AAA AAA A ALAA ALAA ALA AAA AAAA ALAA IAS 
+3THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR 
RETURN HERE 


+ SCALL 

;% 

;k 

;% 

SROCHR: MOV 

: MOV 

CLR 

“ CLR 
MoV 
RTI 

645: 

15: TST 


~ (SP) 
#645, -(SP) 


STKCNT 


+;GET A CHARACTER FROM THE QUEUE 
+; CHARACTER 1S ON THE STACK 
i;WITH PARITY BIT STRIPPED OFF 


i; PUSH DOWN THE PC AND 
:;GET READY FOR A CHARACTER 
;;PUT NEW PS ON STACK 

+7PUT NEW PC ON STACK 
7;POP NEW PC AND PS ie 


>: WAIT ON A CHARACTER * 


RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
Pil 27-JUA-78 09: 18 


oS 


an 
zs 
SSS SSSSSEREREEEREESESE i 
8 8 
3 : 


ee 
didoeenee cone reEesoaTGui?o=} 


BVT ER TT eS 


02 
022462 


001775 
005 


022522 
022546 


021346 
021342 


022520 


MACY11 30A(1052) 


TTY INPUT ROUTINE 


= 


CALL: 


6$: 


5s: 


7$: 


4§: 
34: 


STK 
a5 TKo0UT, -4(SP) 


++ GET ONE C 
TE 
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+; DECREMENT THE COUNTER 
HAR AC vee 


% + UPDATE THE POINT 

STKQOUT, @STKOEND. 33010 IT GO OFF OF THE END? 
2$ + BRANCH IF NO 

@STKQSRT, STKOOUT™ ;; RESET THE POINTER 


ROL IN 
RE TURN HERE 


R3. = ¢ SP d 
~(SP) 
OSTTYIN.R 


@STTYIN+20. .R3 


4§ 


(SP )+, (R3) 
#177, (R3) 


9S 
#-1, (SP) 


(R3), 98 


) 
#25, (R3) 
8$ 
- SCNTLU 
1$ 
#22, (R3) 


9 
#15, (R3)+ 
2$ 


RTI 
MITITTiittitittittTttettTtiittittittittiittittittitte 
HIS ROUTINE WILL INPUT A STRING FROM THE TTY 


+2 INPUT A STRING FROM THE TTY 


++ADORESS OF FIRST CHARACTER WILL BE ON THE STACK 
+; TERMINATOR WILL BE A BYTE OF ALL O'S 


+; SAVE RI 
+; CLEAR THE RUBOUT KEY 
ROORESS 


77BR IF NO 
+71S THIS THE FIRST RUBOUT? 
a3 IF NO 


+; TYPE A BACK SLASH 


+;SET THE RUBOUT KEY 
+-BACKUP BY ONE 
eh hg EMPTY? 


F YES 
3 SETUP To TYPEOUT THE DELETED CHAR. 
7:60 READ ANOTHER CHAR. 

:; RUBOUT KEY SET? 

::BR IF NO 

;; TYPE A BACK SLASH 


+; CLEAR THE RUBOUT KEY 
+; 1S CHARACTER A CTRL U? 
ae IF NO 

+; TYPE A CONTROL “U" 
+7GO START OVER 

+2 1S CHARACTER A" R“? 


TYPE THE INPUT STRING 
++GO PICK UP ANOTHER CHACTER 
TYPE A' 


37 CLEAR THE BUFFER AND LOOP 
++ECHO ThE CHARACTER 


++ CHECK FOR RETURN 
++LOOP IF NOT RETURN 
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CZR JAC. P11 27-JUL-78 09: Y INPUT ROUTINE 
5612 246% 105063 177777 CLRB -1(R3) ++ CLEAR RETURN (THE 15) 
5613 022470 109401 001216 TYPE - SLF +; TYPE ALINE FEED 
561% 0224578 005726 TST (SP )+ + CLEAN RUBOUT KEY FROM THE STACK 
5615 022476 012603 nov (SP )4,R3 75 RESTORE R3 
5616 022500 011646 nov (SP),-(SP) +; ADJUST THE STACK AND PUT ADDRESS OF THE 
S617 022502 016666 000004 000002 Nov 4( SP), 2(SP) ‘i FIRST ASCII CHARACTER ON IT 
5618 022510 012766 022522 000004 nov @STTYIN. 4(SP) 
5619 022516 RTI ++ RETURN 
5620 022520 000 9S: .BYTE O 4 bey! FOR ASCII CHAR. TO TYPE 
5621 022521 000 .BYTE O ii Pi adle a TOR 
5622 000024 STTYIN: .BLKB 20. RESERVE 20. BYTES FOR TTY INPUT 
5623 041536 005015 OOO SCNTLC: .ASCIZ / €/<15><12> SS CONTR oO “C" 
5624 022553 136 006525 000012 SCNTLU: .ASCIZ / U/<15><12> + CONTROL “U" 
5625 022560 043536 005015 OOO SCNTLG: .ASCIZ / G/<15><12> +-CONTROL “G” 
5626 2565 015 051412 051127 SMSWR: .ASCIZ ¢15><12>/SWR = / 
5627 022572 036440 
5628 2576 020040 042516 020127 SMNEW. .ASCIZ / NEW = / 
5629 022604 020075 
ren 022610 . EVEN 
aest .SBTTL SCOPE HANDLER ROUTINE 
5634 +; SESRITALATATAALALITAARALALALITA AAAS ATAT AAA SATA TAA ATTA ss 
5635 +3THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
5636 +3AND LORD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: O>) 
5637 SAND LOAD THE ERROR FLAG (SERFLG) INTO DiSP) AY<15: 08> 
5638 3 8THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
5639 Wi4=1 LOOP ON TEST 
5640 ;SW11=1 INHIBIT | TERATIONS 
5641 + SSWO9=1 LOOP ON ERROR 
5642 + CALL 
5643 re SCOPE ++ SCOPE=10T 
5So44 
5645 022610 SSCOPE: 
5646 022610 10440 CKSWR hy» FOR CHANGE IN SOFT-SWR 
S647 022612 032777 O40000 156320 1%: BIT #81714, SHR LOOP ON PRESENT TEST? 
5648 001101 BNE VER YES IF SWi4s1 
5649 2 WEREESTART OF CODE FOR THE XOR TESTERSANGE 
5650 022622 000416 SXTSTR: BR 6$ +7 1F RUNNING ON THE “XOR" TESTER CHANGE 
5651 +2 THIS INSTRUCTION TO A “NOP” (NOP=240) 
5652 022624 013746 MoV @HERRVEC.-(SP) >; SAVE THE CONTENTS OF THE ERROR VECTOR 
6653 022630 012737 022650 000004 Mov #5. Q@HERRVEC ++ SET FOR TIMEOUT 
5654 022636 737 177060 TST 04177060 IME OUT ON XOR? 
5656 022642 012637 MoV (SP )+, @#ERRVEC $F RESTORE THE ERROR VECTOR 
5656 022646 000453 BR SSVLAD +:GO TO THE NEXT TEST 
5667 022660 922626 55: CMP (SP )+, (SP)+ ++ CLEAR THE STACK AFTER A TIME OUT 
6668 022662 012637 000004 nov (SP)+, @RERRVEC +; RESTORE THE ERROR VECTOR 
5669 022666 000413 BR 7$ LOOP ON THE PRESENT TEST 
5660 022660 S$: ;#ONOREND OF CODE FOR THE XOR TESTERSGNAS 
5661 022660 106737 001103 28: TSTB SERFLG i+ HAS AN ERROR OCCURRED? 
5662 022664 001421 BEQ 3$ +BR IF _NO 
5663 022666 1237 001115 001103 CMPB SERMAX. SERFLG 22 AK ERRORS FOR THIS TEST OCCURRED? 
5664 022674 101015 BH! NO 
5666 022676 2777 001000 156234 BIT #8 1TO9. aSWR ; LOOP ON ERROR? 
5666 2704 001404 BEQ 4 | 
5667 022706 013737 001110 001106 7%: MOV SLPERR, SLPAOR ;;SET LOOP ADDRESS TO LAST SCOPE 
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CZR JAC 

CZR JAC. Pil 
5670 
5671 


5675 
5676 


022746 
5677 022752 


5668 022714 
5669 022716 
022722 


5672 022730 
5673 022736 
5674 022740 


ne 
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2 
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OPE HANDLER ROUT 


Be SOVER 
LF CLRB SERFLG +; ZERO THE ERROR FLAG 
CLR STIMES +; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
SF 1$ ;;ESCAPE TO THE NEXT TEST 
34: BIT #61711. aSWR 7; INMIBIT ITERATIONS? 
BNE 1$ é3 iF YES 
Tst SPASS 77 1F FIRST PASS OF PROGRAM 
BEQ 1$ 3 INMIBIT ITERATIONS 
INC SICNT 7; INCREMENT ITERATION COUNT 
STIMES, SICNT +; CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER 7788 IF MORE ITERATION REQUIRED 
1$: nov 41, SI1CNT 7; REIMITIAL THE ITERATION COUNTER 


no 
SSVLAD: — STSTNM 


>; SAVE ERROR L ADORE SS 
++ CLEAR THE ESCAPE FROM ERROR ADDRESS 
Move #1, SERMAX ONLY ALLOW gh — ON NEXT TEST 
SOVER: MOV STSTNM, @DISPLAY ;; DISPLAY TEST NUMB 
Mov SLPAOR. (SP) At hz en RODRESS 


RTI Ss 
SMXCNT: 1 +; MAX. NUMBER OF ITERATIONS 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
+ SESTAAAA AAT AAT ALAL AAA A AAA AA AAA A AAA AAA A AAA AAA ALAA AAA ATA Ass 
SAVE RO-RS 


i 

;% SAVREG 

+ aes RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

+ 8TOP---(+16) 

;% 42---(4+18) 

7% 44---R5 

7% 46---R4 

7% 48---R3 

; %410---R2 

; %4+12---R1 

+ %414---RO 

SSAVREG: 
MOV RO, -(SP) ++PUSH RO ON STACK 
MoV RIT, - CSP) *;PUSH R1 ON STACK 
MoV R2,- (SP) +;PUSH R2 ON STACK 
MoV R3,.- (SP) ;;PUSH R3 ON STACK 
MoV R4,-(SP) +-PUSH R4Y ON STACK 
MoV RS, -(SP) +;PUSH RS ON STACK 
MoV 22(SP),-(SP ++ SAVE PS MAIN FLOW 


MoV 22(SP),-(SP 


) OF 
Nov —-22($P).-(SP) SAVE PC OF MAIN FLOM 
Mov 22 SP), -(SP) 


: HRESTORE RO-RS 
:% sO RESREG 


SE@ 0107 





Pi 


023172 


023216 


0664 
020724 
021112 


021724 
021634 
022176 
022266 
023042 
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000002 


023172 


000004 000002 


SRESREG: 

nov (SP 4, 22(SP) 
nov (SP )4, 22(SP) 
nov (SP 4, 22(SP) 
nov (SP )4, 22(SP) 
nov (SP 4, R85 

mov (SP 4, R4 

nov (SP )4,R3 

nov (SP )4,R2 
MoV (SP +, R1 

Mov (SP )4+,R0 

RTI 


.SBTTL TRAP DECODER 


+; RESSIAAAAAAAAAALAAAA ATTA LAAT AAA AAA AAA ALATA ALAA ALATA LTA ss 
+STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” IN 


;3AND USE IT TO INDEX THR 
+30F THE DESIRED ROUT | NE. 
+3G0 TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) 
nov 2(SP), RO 
TST -(RO) 
MOvB (RO), RO 
ASL RO 
MOV STRPAD(RO). RO 
RTS RO 


—e 9 
27- JUL-78 
VE AND RESTORE RO-RS ROUTINES 


+; POP STACK 
+; POP STACK 


THEN USING THE ADDRESS OBTAINED IT WILL 


+ SAVE RO 
SIGET a. tS eee 


++ BACKUP 


++GET RIGHT BYTE OF TRAP 
+2POSITION FOR INDEXING 
+; INDEX TO TABLE 
++G0 TO ROUTINE 


+ THIS 1S USE TO HANDLE THE “GETPRI" MACRO 


(SP), -(SP) 


STRAPZ: MOV 
MOV 4( SP), 2(SP) 


RTI 
.SBTTL TRAP TABLE 


*+STHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


+ 3BY THE “TRAP” INSTRUCTION 
; ROUTINE 


STRPAD: . STRAPZ 

4 +; CALL=TYPE 
++ CALL=TYPOC 
+; CALL=TYPOS 
3; CALL=TYPON 
+; CALL=TYPOS 


++ CALL=GTSWR 
SCKSWR ;; ; CALL =CKSWR 
SROCHR 


SROLIN ;¢;CALL=ROLIN 
SSAVREG ;; CALL=SAVREG 


STYPOS 
SGTSWR 


+;MOVE THE PC DOWN 
+;MOVE THE PSW DOWN 
+; RESTORE THE PSW 


TRAP +1 (104401) 
TRAP+2( 104402) 
TRAP +3(104403) 
TRAP +4 (104404 ) 
TRAP +5 (104405) 


TRAP +6 ( 104406) 


TRAP +7 (104407) 

TRAP+10(104410) 
TRAP +11(104411) 
TRAP+12(104412) 


09:24 PAGE 112 





TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
SAVE RO-RS ROUTINE 


5821 


Pi 
023220 


27-JUL-78 09: 


023100 


000002 023252 


023252 
023256 
000005 
000002 
000000 


000002 
023436 
000002 


000012 
023366 
023370 


000060 
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023354 


SEQ 0109 
SRESREG ;;CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 

.SBTTL SIN&cE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

+; SESIAILALALALAAATAATALALAAATA SATA SATA ATTA ATA TAIT LATITIII TTT 78s 


+3THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
+ SUNSIGNED DECIMAL ASC IZ NUMBER. 


+ mee, 
; nov NUMBER, -( SP) ++PUT BINARY NUMBER ON THE STACK 
; : JSR PC. @#$S820 ++ CALL 
eS RE TURN +; AOORESS OF THE 1ST ASCIZ CHAR. IS ON THE STACK 
$SB2D: MoV 2(SP).1$ +; SAVE BINARY NUMBER 
nov #158.-(SP) 44M POINTER 
JSR PC, o#$082D + CALL DOUBLE LENGTH CONVERT 
ADD a5. (SP) ONLY ALLOW FIVE CHARACTERS 
nov (SP )+, 2(SP) PICKUP POINTER 
RTS PC ++ RETURN 
1$: -WoRD 0.0 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


+; SERTAAAALALAAATALAATALALAALAATALAAA ALAA AA TAA AAA ALATA ETA ITs 
+3THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
DECIMAL (ASC) NUMBER THE SIGN OF THE BINARY NUMBER MUST BE 


; RPOSIT 
+ SCALL 
Fe | Mov @PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
;% JSR PC, @#$0820 
ik RE TURN 3; THE FIRST ADORESS OF ASCIZ 
77 1S ON THE STACK 
$0820: SAVREG +; SAVE REGISTERS 
MoV 2(SP),.R2 +; PICKUP THE DATA POINTER 
MoV #SDECVL.RO +: GET ADORESS OF “SDECVL" STRING 
Mov RO, 2(SP) +;PUT ADORESS OF ASCIZ STRING ON STACK 
MoV (R2)4,R1 ;-PICKUP THE BINARY NUMBER 
MoV (R2)4+,R2 
MoV #10. .45 ++SET UP TO DO 10 CONVERSIONS 
MoV @STNPWR.RY >; ADDRESS OF TEN POWER 
MoV @STNPWR+2, R5 
1$: CLR R3 +; CLEAR PARTIAL 
25: suB (R4),R1 7; SUBTRACT TEN POWER 
SBC R2 
suB (R5),R2 
BLT 3$ +7BR IF TEN POWER TO LARGE 
INC R3 ;;ADD 1 TO PARTIAL 
BR 2$ 3; LOOP 
35: ADD (R4)+,R1 +; RESTORE SUBTRACTED VALUE 
ADC R2 
ADD (R4)4+,R2 
CMP (R5)+, (R5)+ +;MOVE TO NEXT TEN POWER 
BIS #'O,R3 43 eee PARTIAL TO ASCII 
Move R3, (RO)+ +; SAVE IT 





an 


SSGRRPRSERSRSS Nos ocaCSCECES ES ROR OR ORRURRORSS Sea eeeseCECe Z 
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005327 
000000 


023502 


LENGTH BINARY TO DECIMAL ASCII CONVERT ROUT INE 


DEC (PC)+ +; D0NE? 

i} .WORD O 

1$ ;76R 1F 

CLRB (RO)+ ‘ ++ TERMINATOR 
RESREG + RESTORE REGISTERS 
RTS PC +; RETURN 

STNPWR: 145000 +71. OE09 
35632 
604 +1. 0€08 
2765 
113200 371. 0€07 
230 
a +71. OE06 
—— +21. OE05 
ee +21. OE04 
ve +71. OE03 
a 7:1. 0€02 
te +71. OE01 
1 ++ 1. 0€00 
0 


SOECVL: .BLKB 12. +; RESERVE STORAGE FOR ASCIZ STRING 
.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

tG Teth hautind 12 uaae te Tut an dat it ranane mort he 
#8THIS oo hn ES USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


8 Mov @NUMADR.-(SP) ;; FIRST ADDRESS OF ASCIZ STRING 
ik JSR PC, a®SSUPRS 


SSUPRS: MOV RO. -( SP) 7; SAVE RO 
MoV 4(SP),RO +; PICKUP THE POINTER 
1$: TSTB (RO) 33 TERMINATEOR? 
BEQ 2$ 7;8R IF YES 
CMPB #'O. (RO)+ 7: 1S THIS AN ASCII “O" 7? 
BEQ 1§ +7BR IF YES 
25s: DEC RO +; BACKUP BY “1" 
Vv RO. 3$ +; SAVE FOR TYPING 
TYPE ae YP 
34: .WORD O +-ASCIZ POINTER GOES HERE 
nov (SP )+, RO 7: REST 
MoV (SP )+, (SP) 7;RESTORE THE STACK 
RTS PC 7; RETURN 


. SBTTL RANDOM NUMBER GENERATOR ROUTINE 


+s AERAAAALAAAA RAAT AAAS ATA SARA A AAA AAA AAA AAA TATA ATTA AAA AAA Atk 
+ STHIS ROUTINE 1S A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 











Bees 
ws 


Be 
Se33se8 BR 


Pil 





R GENERATOR ROUT 


+ SMITH A RANGE OF 0 TO 2(433)-1. 
+ SCALL: 
:8 JSR PC, SRAND 
8 RE TURN 
;3 
| 
SRANO. 
nov RO, -( SP) 
Mov R1,-(SP) 
mov $L RO 
nov $H 1 NUP. R1 
nov #-7,R2 
1$: ASL RO 
ROL R1 
INC RZ 
BNE $ 
ADD $L ONUM, RO 
ADC Ri 
ADD $H 1 NUM, R1 
ADD #1057, R0 
ADC 1 
ADD #47401, R1 
Mov RO. $LO 
nov R1. SHINUM 
Mov (SP )4,R2Z 
Mov (SP )4,R1 
Mov (SP )+, RO 
RTS PC 
SHINUM: .WORD 176543 
SLONUM: . WORD 123456 
.SBTTL INTEGER DIVIDE ROUTINE 
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; OR DONE 
++ CONT INUE SHIFT LOOP 
NUMBER A A rake x 129 
i PROPOGATE CAR 
NUMBER TO. “rae x 129 
$3 ADO LOW CONSTAN 
+ + PROPOGATE Cane 
++,AD0 HIGH CONSTANT 
+7 SAVE RO 


+; SAVE R1 
;;POP STACK INTO RZ 
+;POP STACK INTO R1 
+;POP STACK INTO RO 
7; RETURN 


+ SESSAAALAAAT TATA AAA AALA AAA A ALAA AAA AAA AA AAA AAA AAA AAA AAA ss 
DIVIDE A 3 WO'S COMPLEMENT INTEGER 


+STHIS ROUTINE WILL 


2-BiT T 


L 
+ 3DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
+3A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BiT REMAINDER. 
+ SDIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 


+SSAVE SIGN AS THE DIVIDEND. 


+ SCALL: 

re i MoV LOW DIVIDEND.-(SP) ;; THE HIGH DIVIDEND MUST BE < 172 
Fe 3 MOV HIGH DIVIDEND. -(SP); AS LARGE AS THE DIVISOR 

> | MoV DiViSOR.-(SP) 

pe | JSR PC, SO0I1V 

re | RE TURN +; QUOTIENT & REMAINDER ARE ON THE STACK 
fe | “y"=0 IMPLIES NO ERROR 

;% “y"s{ IMPLIES ERROR OCCURRED 

re | "C"s0 DIVIDE OVERFLOW OCCURRED 

+ "C"=1 ATTEMPTED TO DIVIDE BY ZERO 

Pe | 

+ STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

fe | TOP REMAINDER ALL ZEROS ALL ONES 
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. Pil 27-JUL-78 09: 18 INTEGER DIVIDE ROUT INE SEQ 0112 
;k +2 / QUOTIENT ALL ZEROS ALL ONES 
023614 SDIV: 
023614 104400 / TRAP ;;PUSH OLD PSW AND PC ON STACK 
023616 042716 000017 '' [pic #17, (SP) 77 STRIP AWAY CONDITION CODES 
023622 010046 Vv RO, -(SP) 77 PUSH RO ON STACK 
023624 010146 Mov R1i.-(SP) 77 PUSH R1 ON STACK 
023626 010246 nov R2,-(SP) ;;PUSH R2 ON STACK 
023630 010346 Mov R3,-(SP) 7;PUSH R3 ON STACK 
023632 005046 CLR -(SP) +; SAVE A PLACE FOR SIGNS 
023634 012746 000021 MoV #17.,-(9) 2; SETUP THE ITERATION COUNTER 
023640 016601 000024 Mov 24(SP),R1 77 PICKUP THE DIVIDEND 
023644 0 000022 Mov 22(SP), RO 
023650 100005 BPL 1$ 7; CHECK THE SIGN 
023652 105366 000003 DECB 3(SP) 7; KEEP TRACK OF THE SIGN 
023656 005400 NEG RO 7+ AND NEGATE THE ORIGINAL 
023660 005401 NEG R1 7; NUMBER 
023662 005600 SBC RO 
02366% 016602 000020 1$: nov 20(SP),R2 +;PICKUP THE DIVISOR 
023670 002407 BLT 2s 73 CHECK 
023672 003011 BGT 3$ ++ DIVISOR OF O 1S A NO-NO 
3674 052766 000003 000014 BIS #3. 14 (SP) ;SET “v" & "“C" 

023702 012700 177777 MoV #-1, RO 13 SET REMAINDER TO ALL ONES 
023706 000424 BR 7$ EXIT 
023710 005266 000002 25: INC 2(SP) + ReeP TRACK OF DIVISORS SIGN 
023714 000401 BR 4g 
023716 005402 3s: NEG R2 prs, THE ORIGINAL NUMBER 
023720 000241 4§: CLC 7; CLEAR “C" 
023722 000405 BR 65 7+ START tin QUOTIENT 
023724 55: ROL RO 7-POSITION MSB'S 

010003 Mov RO, R3 3 Y 
023730 3 ALD R2,.R3 7; COMPARE DIVIDEND & DIVISOR 
023732 103001 BCC 6$ ;;BR IF DIVIDEND > DIVISOR 
023734 010300 MoV R3,RO +7 REMAINDER AFTER THIS LOOP 

006101 65: ROL Ri +, QUOTIENT BIT ENTERS HERE 
023740 005316 DEC (SP) ; + DONE? 
023742 001370 BNE 5§$ ;7BR IF NO 
023744 005701 TST Ri . ;; OVERFLOW? 
023746 100005 BPL 84 ;7BR IF NO 
023760 0652766 ©C00002 000014 BIS #2. 14(SP) ;;SET “V" IN RETURN STATUS WORD 
023766 0065000 CLR RO 7; SET REMAINDER TO ALL ZEROS 
023760 010001 7$: MoV RO. R1 +; COPY REMAINDER INTO QUOTIENT 
023762 005726 8S: TST (SP )+ +; CLEAR COUNTER FROM STACK 
023764 005716 TST (SP) 3; REMAINDER SIGN CORRECTION NEEDED? 
023766 002004 BGE 94 ;7BR IF NO 
023770 005400 NEG RO +; NEGATE REMAINDER 
023772 106066 000001 CLRB 1(SP) 7; CLEAR SIGN 
023776 005316 DEC (SP) +;BUT DON'T FORGET GUOTIENT 
0248000 005726 94: TST (SP )+ ++ QUOTIENT SIGN CORRECTION NEEDED? 
024002 001401 BEQ 10$ a3 F NO 
024008 005401 NEG R1 +; NEGATE QUOTIENT 
024006 010166 000020 105: MoV Ri, 20(SP) +;RETURN QUOTIENT AND 
024012 010066 000016 MoV RO. 16(SP) >; REMAINDER TO USER 
024016 012603 MoV (SP )+,R3 ;;POP STACK INTO R3 
024020 012602 MoV (SP )+,R2 ;;POP STACK INTO R2 


024022 012601 MOV (SP)+,R1 +2POP STACK INTO R1 





CZR JAC 
CZR JAC. P11 27-JUL-78 09: 18 
6004 024024 012600 
6005 024026 012666 000002 
6006 024032 000002 
6007 
6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 024034 005037 001230 
6018 O24040 012737 024064 
6019 024046 000006 
024 00s 155342 
6021 024056 005237 001230 
024062 000401 
6023 024064 022626 
012737 000006 
024074 207 
6026 
6027 
6028 
6029 
6U30 
6031 
6032 
6033 
6034 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 024076 010146 
% 024100 012701 000006 
6045 024104 011146 
6046 024106 11 
6047 024110 014146 
6048 024112 012711 024142 
6049 024116 001244 
6050 024122 155252 
6051 024126 012737 1 
6052 0241348 004737 024244 
6053 024140 000414 
6064 024142 022626 
6055 024144 012711 024170 
6056 024160 777 «=15523 
6057 024154 012737 177777 
6058 024162 004737 024 
6059 024166 000401 


000004 


000004 


001244 


001244 
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INTEGER DIVIDE ROUTINE SEQ 0113 
MoV (SP )+, RO ++POP STACK INTO RO 
ey (SP )+, 2(SP) a2 es TO RETURN CONDITION CODES 


.SBTTL 8% PROGRAM SUBROUTINES 22% 

+SET “LPTAVL” TO THE PROPER STATE. 

+ LPTAVL = O IF NO LINE PRINTER AVAILABLE 
; “hte = 1 IF LINE PRINTER IS AVAILABLE 


; JSR PC, a@LP. AVL 


; RE TURN 
LP. AVL: CLR aeLPTAVL ; START WITH NO PRINTER AVAIABLE 
nov #1$, a8ERRVEC ; SETUP THE TIMEOUT VECTOR 
CLR SRERRVEC+2 
TST aLPs 31S THERE A LINE PRINTER? 
INC QaLPTAVL ;YES--SET AVAILABLE SWITCH 
15: CMP (SP )+, (SP )4 ;NO--POP STACK 
2s: nov SERRVEC42Z, AWERRVEC ; RESTORE TIMEOUT VECTOR 
RTS PC ; RETURN 


+ THIS ROUTINE WILL DETERMINE IF THERE 1S A CLOCK ON THE SYSTEM 
+AND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK 
+"“CLKSTA” WILL INDICATE THE CLOCK TYPE 

+ O= NO CLOCK 

++1= KW11-P 

sis KWII-L 

+ THIS ROUTINE WILL ALSO SETUP “TICKMS” (TIME 

+PER CLOCK TICK IN MILLISECONDS) AND "“TICKUS” 

; (TIME PER CLOCK TICK IN MICROSECONDS) AS 

+PER SWOO. 

+S$WOO=0 -- 60HZ 

+SWOO=1 -- 5OHZ 


x 


+ CALL 
3 JSR PC, @#ST. CLK 
; RE TURN 
ST. CLK: MOV R1i.-(SP) 7 SAVE R 
Mov MERRVEC+2, R1 + SAVE AND SETUP TIMEOUT VECTOR 
Mov (R1),-(SP) 
CLR (R1) ; LEVEL O 
nov -(R1),-(SP) 
MoV #16, (R1) :GO TO 1$ ON TIMEOUT 
CLR CLKSTA + SET CLOCK Beds 5. TO NO CLOCK 
TST e@PKCS + 1S THERE A 1-P? 
MoV #1,CLKSTA ; YES--SET STATUS TO KW11-P 
JSR PC. ST. PCLK +START THE KWi1 
BR 3$ ;GO TO EXIT 
1$: CMP (SP )+, (SP )+ +CLEAN UP THE STACK 
MoV #2%. (R1) > 1F TIMEOUT GO TO 2$ 
TST @_KSs + 1S THERE A KW11-L? 
MoV #-1,CLKSTA > YES-- SET STATUS TO KWii-L 
JSR PC. ST. LCLK ;START THE KW1i1-L 
BR 3$ EXIT 
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S595593 
SFERSE 


HE 


27-JUL-78 


09: 18 


176777 
000001 
001664 
002330 


003504 
003104 


001220 


001246 
001250 


001246 
001250 


001220 
155112 


001234 
001236 


PROGRAM SUBROUTINES 323 


23: 
38: 


4§: 
55: 


ST. PCLK: 


1$: 


ST. LCLK: 
8 


1$: 
SRVCLK: 


; 
; 
; 
; 
; 


LODFLT: 


JSR 


RETURN 


(SP )+, (SP)+ + CLEAN UP THE STACK 

(SP )4, (R14 RESTORE THE TIMEOUT VECTOR 
(SP )+, (R1)4 

(SP }4,R1 RESTORE R1 

#SWO6, @fC. +50HZ OR 60HZ? 

4 BRANCH IF 60 

820. d8TICKNS + SETUP TIME PER 

_— /@ETICKUS ; TICK FOR SOHZ 


5 

#16. d@TICKNS +SETUP TIME PER 
#16666. .@#TICKUS ; TICK FOR 60HZ 
PC ; RETURN 


’ 


#SRVCLK., OPKV ;SETUP THE KW11-P VECTOR 


#SWO5, @#C. SHR =; ALLOW SOFTWARE TIMEOUTS? 
1$ RANCH 


#300, aPKV+2 

#1, oPKB + COUNT ONE TICK 

#115, @PKCS ; "INT. EN. ", COUNT DOWN". “MODE 1 (REPEAT)". 
*“LINE FREQ", AND “RUN” 

PC + RETURN 

#SWOS, @#C. SWR = ;- ALLOW SOFTWARE TIMEOUTS? 

1$ + NO--BRANCH 

@SRVCLK. @LKY SETUP THE KW1ii-L VECTOR 

#300, aLKV+2 

#100, @LKS *+START THE KWi1-L 

PC + RETURN 


@RTICKMS.-(SP) ; TIME PER TICK IN MILLISECONDS 
PC, @@RPTMR +COUNT THE ELASPED TIME 
+RETURN AFTER INTERRUPT 


THIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE PROGRAM IS 
STARTED OR WHEN THE VALUE OF BITOO IN ‘C. SWR’ IS CHANGED. 


PC. LODFLT 

RO, -(SP) ++PUSH RO ON STACK 
R1,-(SP) ++PUSH R1 ON STACK 
R2.-(SP) ++PUSH R2 ON STACK 
R3.-(SP) +PUSH R3 ON STACK 


T 
#176777,TSTNMS ;SELECT TESTS 0-10. 12-17 
#1, TSTNS+2 +SET SELECT BIT FOR TEST 20 


#OFLT. RO +DEFAULT PARAMETERS POINTER 
@PRNO. R1 ; TABLE POINTER 

R1,R2 +STOP ADDRESS 

(RO)+, (R1)+ ;MOVE DEFAULT pets INTO 
RO. RZ RUN TIME TABLES *% DONE? 

1$ + NO--BRANCH 

#PATS, RO +PATO DEFAULTS TO PATTERN 8 


PATO. Ri 
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010146 


013704 
012122 


09: 18 


003544 


177776 
000013 


000002 


001630 
001630 


001102 
001536 
001504 


001254 


2s: 


35: 


4§: 
55: 


6$: 


7$: 


, 
; 
; 
; 
; 


PROGRAM SUBROUTINES £23 


RTS 


LODPRNM: 


(RO)+, (R14 
RO. #PATO 


2s 
#681 T00.C SWR 
3$ 


#21. . PRILNT+22 
#21. , PRILNT+24 


! 
+ SET ! 21. 
. $22. >. TRCKWC fee COUNT FOR A 16 BIT TRACK 


+ 9. , PRPLMNT+22 


19. , PRELNT+24 
~ (256. $20. >, TRC 


(R1 


8s 
> tala a(R1)+ 


$ 
-2(R1),R2 
(R2),-(SP) 
#11. .R3 
SP) 

7$ 

#2.R2 

R3 


6$ 

(SP )+ 

(RZ), PRMLMT+22 
PRMLMT+22, (R2) 
5$ 

(SP )+,R3 

(SP )+,R2 


(SP )+,R1 
(SP )+, RO 
PC 


@TESTNUM STSTNM 
RM 


PC, LOOP 


4 
PRMPT(R4), R1 
#PRM. RZ 

R3 

CHKDRV, R4 
(R1)+, (R2)+ 


9 
97 JUL-78 


+ CONTI 
; SET FS’ LIMIT TO 


is 
;SET ‘LS’ LIMIT TO 19. 

KWC ;WORD COQNT FOR COUN 
;ADORESS OF praree TER POINTER TABLE 


;END OF THE T 
;BR IF END 

+'LS' SELECTED ? 
;BR IF NOT 


NO 
ee TABLE ADORESS 
ARAMETER ALLOCATION BITS 
E PARAMETERS (MAXIMUM) BEFORE 
ARAMETER 


NOT USED 


++POP STACK INTO R3 

+2POP STACK INTO R2 

+;POP STACK INTO R1 

+;POP STACK INTO RO 
ETURN 


, 


tar ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 
+LOAD THE TEST NUMBER 


+PUSH R1 ON STACK 
++PUSH R2 ON STACK 
H R3 ON STACK 


+ CLEAR RY 
+GET THE TEST NUMBER 


+SETUP TO 


ADDRESS WORDS 
GET THE TEST'S PARAMETER TABLE ADDRESS 
+PARAMETER EXECUTION TABLE 

+R3 1S USED AS A COUNTER 


;ORIVE'S 


ADORESS 
PARAMETER SPECIFIER 


09:24 PAGE 119 


a 
oo 
Oy) 
— eo 


T FOR AN 18 BIT TRACK 


R IF 
NCREMENT THE “ee TABLE ADDRESS 


- GE FOR THE MODE SELECTED ? 
VALUE FOR MODE USED 
| NUE 


3 
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006237 001504 1%: ASR PRM + THIS PARAMETER USED IN THE TEST 7? 
103002 2$ ; F_NOT 
012122 nov (R1)+, (R24 +LORD THE VALUE 
000401 8 + CONT I NUE 
2$: (R2)+ ; THE UNUSED PARAMETER LOCATION 
35: R3 ; Y denstdshha IN THE OUTPUT TABLE 
CMP + aie 


BR 
R3. 83 CYLINDER ADDRESSES 7? 


“1S 
BYPASSED PARAMETERS (FC' & LC’) 
COUNTER 
1S NOT USED 
MOVE THE INPUT POINTER 
PARAMETER 


NOT USED 
;MOVE THE INPUT PINTER 
; GOING 


G 
UP THE OUTPUT POINTER 
7 KEEP GOING 


(SP )+,.R4 >;POP STACK INTO R4 
(SP )+,R3 +2POP STACK INTO R3 
(SP )+,R2 +POP STACK INTO R2 
(SP )+,R1 +2POP STACK INTO R1 
PC + RETURN 


S ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
Fee B+2 AND DPB. C+2, DEPENDING ON THE STATE OF “CONTROL SWITCH" 


PC, @#LDCND 


@SWO7, @8C. SWR ;DO EXPLICIT SEEKS? 

1$ + YES-- BRANCH 

@READHD. a#D0PB. B+2 ;NO--SET UP FOR READ HEADER AND 
eee aeons. C+2 ; DATA COMMAND 


@SEEK. @#0PB.8+2 ; SETUP FOR SEEK COMMAND 
oo oeare. C+2 


;THIS ROUTINE WILL CALL THE RPO4/5/6 DRIVER AND THEN WAIT ON THE FUNCTION 
4S eaateaahes IF AN ERROR OCCURS IT IS REPORTED. 


FILL “OPB" WITH ae INFORMATION 
JSR RO. @#CALL. A 
RETURN 


: CLR @8 SESCAPE +NO ESCAPE ADDRESS 
oe r RO, @#RPOY *CALL RPOY DRIVER 
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. Pi 27-JUL-78 09: 18 3 PROGRAM SUBROUTINES 223 SEQ 0117 
0250%6 000772 BR CALL. A 
025050 005737 004122 1$: TST @80P6. A+16 + DONE? 
025054 001775 BEQ 1$ + NO--L OOP 
025056 100032 BPL 3$ ; BRANCH 1F NO ERROR 
025060 012737 025134 001206 nov 82%. SESCAPE +; ESCAPE TO 2% ON ERROR 
025066 013737 004116 001270 nov a80P6. A+1Z, aeCYL. OS ;CYLINOER 
025078 113737 004115 001274 Nove O80P6. At11, a8TRK OS ; TRACK 
025102 113737 004114 001272 MOVB @80PB. A410, BASEC. OS ; SECTOR 
026110 012746 004122 nov SOPB. A+16.-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
025118 004737 026250 JSR PC. a8 R INDX + FORM DISPATCH INDEX 
025120 062607 ADD (SP +, PC ; REPORT PROPER ERROR 
025122 104041 ERROR 441 
025124 104042 ERROR 42 PARITY ERROR 
104043 ERROR 8 43 ; E ERROR 
025130 104044 ERROR +NON- 170 ERPOR 
025132 104045 ERROR 45 +170 ERROR 
025138 013746 004122 2s: MoV OPB. A+16,.-(SP) ; STATUS WORD 
025140 004737 026210 JSR PC. LOP. CK +SEE IF LOOP. ABORT. OR CONTINUE 
025144 000200 3S: RTS RO + RETURN 


+ THIS ROUTINE i. THE SAME AS “CALL. A” EXCEPT FOR THE DPB USED AND IF 
+ THE COMMAND 1S A READ HEADER AND DATA THE HEADER (CYLINDER. TRACK. 
+AND SECTOR) READ 1S CHECKED FOR VALIDITY. 


+ CALL 
; FILL OPB 
r JSR RO, @@CALL. B 
; RE TURN 7 
025146 005037 001206 CALL. B: CLR @8 SESCAPE >NO ESCAPE ADDRESS 
025152 004037 035304 JSR RO, d#RPOX ;CALL RPOY DRIVER 
025156 004124 ors. 8 
026160 000772 BR CALL. B 
025162 005737 004142 1$: TST OPB. B+16 ; DONE? 
025166 001775 BEQ 1$ > NO--BRANCH 
025170 100042 BPL 4S BRANCH 1F NO ERROR 
026172 012737 025264 001206 MoV #3%. SESCAPE ;ESCAPE TO 3$ ON ERROR 
026200 013737 004136 001270 MoV es0P6. 6+12. acy. OS ; ; CYLINDER 
026206 113737 004135 001274 Move @t0P8. 8411. a8 TRK OS ; Teh 
026218 113737 004134 001272 Move os0re. Bt10. @8SEC. DS ; SECT 
026222 012746 004142 MoV #O0PB. B+16. - (SP)  STATUSSERROR INDICATOR ADDRESS 
026226 004737 026250 JSR PC, @#ER INDX 7FORM DISPATCH INDEX 
026232 ADD (SP )+, PC ;REPORT PROPER ERROR 
0262355 104041 ERROR 41 3 
026236 104042 ERROR 42 ;PARITY ERROR 
026240 104043 ERROR 43 +; UNSAFE ERROR 
026242 104044 a ly ;NON-170 ERROR 
026244 006737 004220 TS RP. REG+RPER1 sDRIVE ERROR ? 
oreeee 001404 BEQ 7BR IF NOT ’ 
2737 177677 004220 BIT # C100. RP. REG+RPER1 ;SEE IF ONLY ‘HCE’ SET 
aeeeee 001406 BEQ WS ;BR IF IT IS 
104045 25: ERROR 45 +170 ERROR " 
026264 013746 004142 3s: Vv DPB. B+16.-(SP) ;STATUS WORD 
026270 0047 026210 JER PC, LOP. CK +SEE IF LOOP, ABORT. OR CONTINUE 
026274 000410 One 5§$ > CHECK FOR STALL 
026276 123727 004126 000173 4: NSB es0Ps8. 842. #READHD ;DOING IMPLIED SEEKS? y 
026304 001004 BAe 5§$ NO--BR RANCH 
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6284 025306 004037 026530 ISR RO. SOVERIFY ; YES--GO CHECK THE DATA 
6285 025312 004134 OPB. 8+10 
6286 02531% GB 7ERROR DURING VERIFY 
6287 025316 032737 O40000 001220 SS: BIT @SW14.a0C.SWR ;STALL? 
6288 0253248 001403 BEQ 6 ; NO--BRANCH 
6289 025326 037 026366 JSR RO. deSTALL 3 YES--CALL STALL ROUTINE 
6290 025332 001354 .WORD STALLI ;STALL TIME POINTER 
6291 025334 200 6S: RTS RO ; RETURN 
6293 + THIS ROUTINE IS THE SAME AS “CALL. 8B” EXCEPT rOR THE DPB USED. 
676 > CALL 
67945 3 FILL OPB 
6296 ; JSR RO, @ACALL. C 
6297 ; RE TURN 
6299 025 005037 001206 CALL. C: CLR 04 SESCAPE ;NO ESCAPE ADDRESS 
6300 025342 004037 035304 JSR RO, daRPOX ;CALL RPOY DRIVER 
6301 O253%6 004144 DPB. C 
6302 0253650 BR CALL. C 
6303 025352 005737 004162 16 TST ore. +16 ; DONE? 
6308 025366 001775 BEQ 1$ ; NO--LOOP 
6305 025360 2 BPL as ; YES-- BRANCH IF NO ERROR 
6306 025362 012737 025454 001206 nov #35. SESCAPE ; ESCAPE TO 3$ ON ERROR 
6307 026370 013737 004156 001270 nov ae0Ps. C412. acy. OS ; ; CYLINDER 
6308 025376 113737 004155 001274 MOVE @G0PB. C411, aBTRK OS ; TRACK 
6309 026408 113737 004154 001272 nove @80PB8. C410. a@SEC. OS ; SECTOR 
6310 026412 612746 004162 nov @O0PB. C+16.-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
6311 026416 004737 026250 JSR PC, @#ER INCX 7FORM DISPATCH INDEX 
6312 0254522 06 ADD (SP )+, PC ;REPORT PROPER ERROR 
6313 025424 104041 ERROR 41 ; 
631% 026426 104042 ERROR 42 ;PARITY ERROR 
6315 0256430 104043 ERROR 43 ; UNSAFE ERROR 
6316 0264532 104044 ERROR 44 ;NON- 170 ERROR 
6317 O25453) 006737 004220 TST RP. REG+RPER1 ;ORIVE ERROR ? 
6318 025440 001 BEQ 2$ ;BR IF NOT 
6319 0268452 032737 177677 004220 BIT @ C100, RP. REG+RPER1 ;=SEE IF ONLY ‘HCE’ SET 
6320 026460 001406 BEQ uy Ay iF iT ds 
6321 026462 104045 2s: ERROR 45 70 ERROR 
6322 026464 013746 004162 3s: mov OPB. C+16.-(SP) : STATUS WORD 
6323 026460 004737 026210 JSR PC. LOP. CK ;SEE IF LOOP, ABORT. OR CONTINUE 
6324 026465 000410 BR 5§$ 
6325 026966 123727 004146 O00173 4S: CMPB @80PB. C42. RREADHD ; DOING IMPLIED SEEK? 
6326 026478 001004 BNE S$ ; NO--EX XIT 
6327 026476 0048037 026530 JSR RO. QAVERIFY  YES-CHECK THE DATA 
6328 026602 004154 OPB. C+10 
6329 026604 some? HR i) sERROR DURING VERIFY 
6330 026606 2737 O40000 001220 55: BIT @SW14,a8C.SWR ;STALL? 
6331 02661% 001403 BEQ 6 ; NO--BRANCH 
6332 026616 037 026366 JSR RO. @eSTALL ;YES--CALL STALL ROUTINE 
6333 026622 001354 .WORD STALLI ;STALL TIME POINTER 
6334 026524 200 6S: RTS 
e336 
6337 ; THIS ROUTINE 1S THE SAME AS “CALL. A” EXCEPT FOR THE DPB USED AND 
6338 ;ON AN ERROR L cer 1F ERR. CT 1S EQUAL TO 


6339 


"ERR. CT" 1S EXAMINED. 


+SERFLG EXIT | THE NEXT TEST 
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6340 + CALL 
6341 ; FILL OPB 
634 ; JSR RO. @#ORVCAL 
one ; RE TURN 
65 025526 005037 001206 DRVCAL: CLR @8SESCAPE NO ESCAPE ADDRESS 
66 025532 005037 001334 CLR @sWCEFLG *CLEAR WRITE CHECK ERROR FLAG 
6347 025536 004037 335304 JSR RO. @BRPOY +CALL RPOY DRIVER 
6348 025542 004164 OTAOPB 
659 025544 000770 BR DRVCAL 
6350 02556 005737 004202 ORVCL1: TST @8OTAOPB+16 +; DONE 
6351 025552 001775 BEQ ORVCLI + NO--LOOP 
6352 025554 100402 Bhi 1$ BR IF ERRORS 
025556 000137 026170 JMP 10$ NO ERRORS 
6354 025562 1$: 
6355 025562 012737 025636 001206 Mov #25. SESCOPE ++ESCAPE TO 2% ON ERROR 
6356 025570 013737 004176 001270 MoV @8DTAOPB+12. aSCYL. OS ; CYLINDER 
6357 025576 113737 004175 001274 MOVB @80TADPB+11. a8TRK. OS ; TRACK 
6358 025608 113737 004174 001272 MOVB @8DTADPB+10. @#SEC. OS ; SECTOR 
6359 025612 012746 004202 MoV SOTADPB+16.-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
6360 025616 004737 026250 JSR PC, @#ER INDX FORM DISPATCH INDEX 
6361 025622 062607 ADD (SP +, PC REPORT PROPER ERROR 
6362 025624 104041 ERROR 41 ; 
6363 025626 104042 ERROR 42 PARITY ERROR 
6364 025630 104043 ERROR 43 + UNSAFE ERROR 
6365 025632 104044 ERROR 44 +NON- 170 ERROR 
6366 0256348 104045 ERROR 45 +170 ERROR 
6367 025636 122737 000020 001102 23%: CMPB #20, aéSTSTNM + TEST 20? 
6368 025644 001137 BNE 8s : NO--BRANCH 
6369 025646 013746 004202 MOV DTADPB+16,-(SP) ; STATUS WORD 
6370 025662 004737 026210 JSR PC. LOP. CK +SEE IF LOOP. ABORT. OR CONT I NUE 
6371 025666 2737 000151 004166 CMPB @URCKD, an TAOPB+2 £ DOING A B hiiew CHECK? 
6372 025664 001133 BNE 1 R 
6373 025666 2737 040000 004214 BIT 88 1T14, aORP. REG+I0 ; 1S SUCE'"=1? 
6374 025674 001527 BEQ 12$ ; NO--BRANCH 
6375 025676 0632777 000020 153234 BIT tSuos, SHR + INHIBIT WRITES? 
6376 026708 001123 BNE 12$ + YES--BRANCH 
6377 025706 112737 000161 004166 MOVB AUR ITE, aROTADPB+2 ; SETUP FOR A WRITE 
6378 026714 005037 001206 CLR @8 SESCAPE 7 NO Sar | —- 
6379 026720 004037 035304 JSR RO, @aRPOY D0 THE WRITE 
6380 026725 004164 OTADPB 
6381 025726 
6382 026730 005737 004202 35: TST @sDTAOPB+16 ; DONE? 
6383 02673) 001775 BEQ 3$ +NO--LOOP 
638% 026736 100026 BPL 4$ + YES--BRANCH IF NO ERROR 
6385 026780 012737 026144 001206 MoV #8%. SESCAPE +sESCAPE TO 8$ ON ERROR 
6386 026746 013737 004176 001270 MOV @#DTADPB+12. @8CYL. OS > CYLINDER 
6387 02676: 113737 004175 001274 MOVB @EDTAOPB+11, a TRK. DS ; TRACK 
6388 026762 113737 004174 001272 MOVB @#DTADPB+10, @#SEC. DS ; SECTOR 
6389 026770 012746 004202 MOV #OTADPB+16,-(SP) ; STATUS/ERROR cetera ADORESS 
6390 026774 004737 026250 JSR PC. @#ER INDX +FORM DISPATCH INDEX 
6391 026000 062607 ADD (SP )+, PC REPORT PROPER ERROR 
6392 026002 104041 ERROR 41 ; 
6393 026004 104042 ERROR 42 + PARITY ERROR 
639% 026006 104043 ERROR 43 » UNSAFE ERROR 
6395 026010 104044 ERROR 44 +NON-170 ERROR 








an 
=3 


PEELE Er 







¢ 
g 


ttt tt + 
eB ome ee 
NnN-o 
SSR PE SNSESREIERE x 


as 
ew 


FIICITS 
ee ed eh et et ee 
weangaw 


AR 


D0 10 
RPO4/5/6 MECHANICAL AND caggecteninty By” MACY11 30A(1052) 27-JUL- 


Pil 27-JUL-78 09: 18 


026012 
026014 


000151 
035304 


004 202 
035304 


004202 
026210 
001364 


001252 
040000 


026366 


001000 
152664 
001206 
072006 


017366 


004 166 


001103 


001220 


152722 


000002 
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4§: 


5S: 


6$: 


7$: 


8s: 
12S: 


9S: 
10$: 


115: 


RTS 


78 09:24 PAGE 124 


s170 E 







45 RROR 
SURCKD, S2OTADPB+2 ; COMMAND=WRITE CHECK DATA 


RO, SERPOX 

28 DTADPB+16 
5$ 

7$ 

RO, @aRPOY 
@8DTAOPB+16 
6$ 


10$ 
#1, @BUCEFLG 
68%. 


;00 THE WRITE CHECK 

; DONE? 

;NO--LOOP 

; YES-- BRANCH IF ERROR 
700 A 2ND WRITE CHECK 


+ DONE? 


; NO--LOOP 
+ YES--BRANCH IF NO ERROR 
+SET THE WRITE CHECK — FLAG 


+2 ESCAPE TO 8S ON ERR 


SESCAPE 
@80TADPB+12. BACYL. OS > CYLINDER 


10. 08 + SECTOR 
SOTADPB+16. -(SP) ; STATUS/ERROR ae ADORE SS 


PC. ER INDX FORM DISPATCH 
wha PC sREPORT PROPER ERROR 
42 PARITY ERROR 
43 ; UNSAFE ERROR 
44 +NON- 170 ERR 
46 FATAL WRITE CHECK 
Sy! i: al STATUS WOR 

LOP. CK +SEE IF LOOP. ABORT. O 
OHERR, CT. aNSERFLG | ;GO TO NEXT TEST? 
10$ --BRANCH 
34BYPASS. RO : YES--GET EXIT ADDRESS 
@SW14,a@8C. SWR =; STALL? 
118 ; NO-- BRANCH 
RO. @ASTALL + YES--CALL STALL ROUT! 
STALL2 +STALL TIME POINTER 


+ THIS SUBROUTINE CHECK FOR LOOP, 


ERRORS 41, 


CALL 


’ 

. 
’ 
, 


LOP. CK: 


1$: 


42, 


43, 44, 45S, AND 4 


DTA+16.,-(SP) 
PC. LOP. CK 


+ aaa SIR 
@SLPERR 

SESCAPE 

Sh 1BITISIBIT! 


SE OP 
(SP )+, (SP) 
PC 


a OR CONTINUE SW 


+ STATUS WORD FROM DPB 


E 

T 

THE LOOP ADD 
ROR ESCAPE FL 
'B1T02!B1T01,2 
1VE NOT ro 
ENT UNSAFE OR 


DR | VE 
S ADJUST RETURN ADDRESS 


R CONTINUE 


NE 


ITCHES AFTER 


IN USE 


RESS 


AG 
(SP) ;CHECK ERROR TYPE 
NE. UNLOADED, OR 

FATAL MASSBUS PARITY 


SE@ 0120 





— 10 
RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 125 


Pi 27-JUL-78 09: 18 33% PROGRAM SUBROUTINES 233 


+ THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO pte 

+TO THE PROPER ERROR CALL. THE INDEX 1S FORMED BY EXAMINING 

+ THE STATUS/ERROR INDICATOR OF THE APPLICABLE OP. 
STATUS/ERROR 


+ INDEX 
; O BITIS'BIT1 gre i Tee etree 
; 2 B1T11'!81T10'81TO2 
; 4 BITIZiBITON. 
; 6 B1TOS'BITO3!<BITO9 & COMMAND=NON- | /0> 
‘ems 81T06!<BITO9 & COMMAND=170> 
; JSR #0PB+16.-(SP) ;ADDRESS OF STATUS/ERROR INDICATOR 
; JSR PC, @#ER INDX +FORM INDEX 
; RE TURN + INDEX 1S ON THE STACK 
010046 ERINDX: MOV RO. -(SP) + SAVE . 
026252 010146 MoV Ri,-(SP) + SAVE R 
016600 000006 MoV 6(SP), RO +GET STATUS/ERROR INDICATOR POINTER 
026260 011037 001260 MoV (RO), @8SVSTAT  ;SAVE THE STATUS/ERROR INDICATOR 
026264 005001 CLR R1 +START INDEX AT ZERO 
026266 032710 BIT (PC)+, (RO) F INDEX OF 
026270 020402 . WORD 81113181 T08! B1TO1 
026272 001027 BNE 5$ + YES--BRANCH 
032710 BIT (PC)+, (RO) +FORM PARITY ERROR OR PORT REQUEST INDEX (2)? 
026276 006004 .WORD BIT11!B8ITIO!'BITOZ 
026300 001023 BNE WS + YES--BRANCH 
026302 032710 BIT (PC)+, (RO) FORM UNSAFE INDEX (4)? 
026304 050020 “WORD = BITI4!B1T12!B1 TOM 
026306 001017 BNE 3$ + YES--BRANCH 
026310 032710 BIT (PC)+, (RO) +FORM NON-170 ERROR INDEX (6)? 
026312 000050 .WORD B1TOS!BITO3 
026314 001013 BNE 2$ + YES--BRANCH 
026316 032710 BIT (PC )+, (RO) FORM 170 ERROR INDEX (10)? 
026320 000100 .WORD BITO6 
026322 001007 BNE i$ + YES--BRANCH 
026324 032710 BIT (PC )+, (RO) + SOFTWARE TIMEOUT? 
026326 001000 .WORD BITO9 
026330 001410 BEQ 5$ +NO--FORM INDEX OF 0 
026332 122760 000150 177762 CMPB #150, -16(RO) + YES-- 1707 
026380 003001 BGT 2$ + NO--BRANCH 
0262 006201 1$: INC R1 + INDEX=10---ERROR=45 OR 46 
026384 005201 23: INC R1 + INDEX=6---ERROR=44 
0266 005201 3$: INC R1 + INDEX=4---ERROR=43 
026360 005201 4$: INC R1 + INDEX=2---ERROR=42 
026352 006301 55: ASL R1 + INDEX=0---ERROR=41 
026364 010166 000006 MoV R1,6(SP) ; RETURN — TO USER 
012601 MoV (SP )+,R1 + RESTORE R 
026362 012600 MoV (SP)+, RO + RESTORE RO 
026364 000207 RTS PC +RETURN FROM CALL 
+ THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
;AMOUNT OF TIME IF BIT13 OF C. SWR = O OR A RANDOM AMOUNT OF TIME 
+1F BIT 13 OF C. SUR = 1. 
+STALL1 CONTAINS SPECIFIED TIME FOR TESTS 0 - 7. AND STALL2 
— THE TIME FOR TESTS 16-21. 
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6508 F JSR RO. @@STALL 
r+ rt F TIME POINTER ; WHERE TO FIND THE STALL TIME 
6511 026366 013046 STALL: MOV @(RO)+,-(SP) ;PICKUP STALL TIME 
6512 026370 032737 020000 001220 BIT @SWi3.a8C.SWR ;USE A RANDOM TINE? 
6513 026376 001406 BEQ i$ + NO--BRANCH 
65148 026400 7 023512 JSR PC, d@SRAND ; YES--FORM RANDOM 
6515 013716 023612 mov @tSLONUIL (SP) ;AND USE IT FOR THE STALL TIME 
6516 026410 042716 BIC @ C77. (9) BUT NEVER > 64 MILLISECONDS 
6517 026414 005046 1$: CLR -(SP) ; CLEAR TEMP. LOCATION 
6518 026416 162766 000001 000002 23%: Sus #1, 2¢SP) # MORE STALL REQUIRED? 
6519 026424 103407 BLO us 3 RANCH 

026426 012716 000144 nov #100... (SP) : STALL FOR ‘it 1 MILLISECOND 
6521 026432 005700 34: TST RO ;NOP TO KILL TIME 

026434 005366 000000 DEC O( SP) ; COUNT 
6523 026440 001374 BNE 3$ ; LOOP IF MORE COUNTS NEEDED 
6524 026442 000765 BR 2s 
6525 026444 022626 4§: CMP (SP )+, (SP )+ ; CLEAN OFF THE STACK 
6526 026446 000200 RTS RO EXIT 
cane 
6529 ;ROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING 
6530 + TESTS. THIS STALL IS REQUIRED TO COMPENSATE FOR THE ‘ACCESS READY’ DELAY 
req i: RPO4. THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
6533 ; JSR PC, ae THOMS 
6534 ; RE TURN 
6536 026450 013746 177776 TWOMS: MOV @ePs. -(S) ; SAVE THE PRESENT PROCESSOR STATUS 
6537 026454 012737 000240 177776 Mov #(5232.>.a8PS  ;SET THE PROCESSOR PRIORITY TO 5 
6538 026462 017746 152706 Mov @PKV, -(SP) + SAVE THE OLD CLOCK VECTOR ADDRESS 
6539 026466 012777 026512 152700 MoV #15. aPKV + SETUP NEW VECTOR ADDRESS 
6540 026474 012777 000310 152700 MoV #200. . aPKB LOAD THE CLOCK BUFFER 
6541 026502 012777 000101 152670 MoV #101, a@PKCS : START THE CLOCK 
6542 026510 000001 WAIT IT FOR 2 
6543 026512 062706 000004 15: ADD #4, SP ; INCREMENT STACK FOR RETURN 
6544 026516 012677 152652 Mov (SP +, aPKV +RESTORE OLD CLOCK VECTOR 
6545 026522 012637 177776 mov (SP )+, daPS ;RESTORE THE OLD PROCESSOR STATUS 
ee | 026526 000207 RTS i ; RETURN 
6548 ;ROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 
6549 ; CALL 
6550 3 JSR ae. @aVERIFY 
6551 F ADR POINTER ; ADDRESS OF DPB+10 (SECTOR NUMBER) 
6552 ; RE TURN 
6553 
6554 026530 010146 VERIFY: MOV R1,-(SP) + SAVE R1 
6565 026532 012001 Mov (RO)+, R1 ;GET ADORESS OF DPB+10 
6566 026538 042737 010000 047714 BIC GFNT22. @RBUFFER ; STRIP FORMAT BIT FROM CYLINDER NUMBER 
6557 026642 023761 047714 000002 CMP @SBUFFER.2(R1) CYLINDER NUMBER OK? 
6558 026650 001003 BNE 1$ ; NO--BRANCH 
6559 026662 023711 047716 CMP OSBUF FER+2, (R1) ; YES--HOW ABOUT TRACK/SECTOR? 
6560 0266556 001441 BEQ 3$ RANCH IF GOOD 
6561 026660 013737 047714 001262 1%: MoV @BUFFER. Q@€CYL. RD ; ; SAVE THE EXPECTED AND THE 
6562 026566 113737 047717 001264 MOVB @tBUF FER+3, a8 TRK. RD ;RECIEVED CYLINDER. TRACK. 
6563 026574 113737 047716 001266 Move @HBUFFER+2, @@SEC. RD ; AND SECTOR 











3835 


a 
3 


SSERESESEREE 
= N Wn 


BPE 


FEETELELEE 
cet ee cet a 
WOaNSENHFwn-o 


ect oh 


x 
SSSEEEREE i 


RPO4/5/6 MECHANICAL AND vememetemis | 


Pil 27-JUL-78 09: 18 


177776 
037400 
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000040 


000006 
000034 


152264 


005612 
000010 


004166 
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4§: 
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(R1)4, d@SEC. OS 
(R1)4, @@TRK. OS 
soi. @é@CcYL. OS 
. SESCAPE +; ESCAPE TO r ON ERROR 
A ;MAKE IT TEST PC+4 


12 +REPORT THE ERROR 
SRECAL.OPB.A+Z2 {LOAD RECALIBRATE ORDER CODE 
RO. @ACALL. A 60 EXECUTE THE COMMAND 
SESCAPE + CLEAR iO te FLAG 


aSW9, SR LOOP ON E 

4$ BR IF NOT 

@SLPERR ;RETURN TO ERROR LOOP ADDRESS 
#2,R0 + INCREMENT RETURN ADORESS 

(SP )+,R1 +RESTORE R1 

RO sEXIT 


+ THIS ROUTINE WILL PERFORM A “MASSBUS” INIT. FOLLOWED BY 
+A “RECALIBRATE™ ON THE DRIVE UNDER TEST. 


25: 
35: 
4§: 


JSR 
RE TURNI 
RE TURNZ 


7 ys THIS ROUTINE DESTROYS R1 AND RY 


RO, SRCHOO +00 A MASSBUS INIT. AND RECAL 
RETURN HERE IF NO ERROR 
RETURN HERE ON ERROR 

R1 + INCASE OF ERROR (TYPTIM) 

@aPs 


#1SR., on" + SETUP INTERRUPT VECTOR 
@ERPADR.R +P 1CKUP a ane OF RPCS1 
$81 105, RPCS2(R4) ;MASSBUS | 

as DTADPB+10 + TRACK=0; SEcTOR=0 


@8OTAOPB+12 CYLINDER 20 
SRECAL. @ROTADPB+2 ; COMMAND = RECAL IBRATE 
a8 SESCAPE +NO ESCAPE ADDRESS 
RO. @eRPOX CALL THE DRIVER 
DPB POINTER 
4$ ;QUEUVE IS FULL 
+ asa ;WAIT ON DONE 


3$ TAKE NORMAL gt a NO ERROR 
82S. SESCAPE : ; ESCAPE TO 2% ON ERROR 
@8OTADPB+12. SACYL. OS ; CYLINDER 
@#OTADPB+11, a8 TRK. OS ; TRACK 

@8DTADPB+10, a#SEC. OS ; SECTOR 

SOTADPB+16.-(SP) ; STATUS/ERROR +S eal ADORE SS 


PC, @#ER INDX FORM DISPATCH INDEX 
Sy +, PC REPORT PROPER ERROR 
42 PARITY ERROR 

43 + UNSAFE ERROR 

44 +NON- 170 ERROR 

45 +170 ERROR 

(RO)+ ; ADJUST FOR eogee EXIT 
4§ +GO TO THE EX 

RPDACRY) + TRACK AND SECTOR = 0 
RPCACRY) +CYLINDER = 0 

RO ; RETURN 





SEQ 0123 


an 
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6670 
6671 
6672 
6673 


oe 
ae 
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;THIS 1S AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
027054 000002 DORTI: RTI ;RETURN FROM INTERRUPT 
ae ROUTINE WILL INITIALIZE THE TIMERS USED BY THE “TIMING ROUT! ES 
; ISR PC, d@STRTIMR 
; RE TURN 
027056 104412 STRTMR: SAVREG + SAVE RO-RS 
027060 012700 001276 nov STIM UP.RO 7START AT TIM. UP (MINIMUM) 
027064 012701 001332 Mov STIM PT.R1 ;STOP AT TIM PT 
7070 1$: CLR (RO)+ ; CLEAR 
027072 O cmp RO. R1 + DONE? 
7074 103 BLO 1$ + NO--BRANCH 
012710 047714 nov @BUFFER. (RO) + SETUP POINTER 
027102 012737 077777 001276 MoV . CBIT1S. daTIn. UP > SET MINIMUM TIME TO MAXIMUM 
027110 012737 077777 001314 MoV @ CBITIS. daTIM. ON ; POSITIVE NUMBER 
027116 104413 RESREG ; RESTORE RO-RS 
71 00020 Ts PC >; RETURN 
+ THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
;MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
er THIS ROUTINE DESTROYS RZ 
3 Mov aTP.R3 ;PARAMETER POINTER 
3 MoV FLAG. RS + FLAG=O0=COUNT UP 
F > FLAG=-1=COUNT DOWN 
; SR PC, @@COUNT 
; RE TURN 
027122 012702 001276 COUNT: MOV #TIM UP.R2Z Tn tie “UP” POINTER 
027126 005705 TST RS ;USE IT 
027130 001402 BEQ 1$ F VES BRANCH 
027132 012702 001314 Mov #TiM ON.R2 7NO--PICKUP “DOWN” POINTER 
027136 7722 152242 1$: CMP @PKC, (R24 ;LESS THAN PREVIOUS LOW? 
027142 2003 BGE 2$ ;NO-- + 
71 017762 152234 177776 nov aPKC, -2(R2) + YES--SAVE 
027162 027763 152226 000004 2%: cnP @PKC, 4(R3) ;LESS THAN Me LOW LIMIT? 
1 002001 BGE 3$ + NO--BRANCH 
1 006212 INC (R2) + YES--COUNT IT 
027164 005722 3s: TST (R2)+ ,ADVANCE THE POINTER 
027166 027722 152212 CMP @PKC, (R2)+ >GREATER THAN PREVIOUS HIGH? 
0271 003403 BLE ug ; NO--BRANCH 
027174 017762 152204 177776 MoV @PKC, -2(R2) ; YES-- SAVE IT 
027 027763 152176 O00006 4%: CMP @PKC, 6(R3) +> GREATER THEN THE HIGH LIMIT? 
027210 003401 BLE S$ ; NO--BRANCH 
027212 006212 INC (R2) ‘eee T IT 
027214 006722 55: TST (R2)+ ADVANCE THE POINTER 
027216 067722 152162 a (az) (R2)+ ; ADD THIS COUNT "0 THE TOTAL 
027224 006212 INC (R2) + COUNT THIS READING 
027226 022737 056204 001332 CMP @BUFFER+<44814. >, @aTIN, PT ; SAVE THIS COUNT? 
027234 101406 BLOS 6$ NO--BRANCH 
027236 017777 152142 152066 Mov aPKC, aTIM. PT : YES--WELL SAVE IT THEN 
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000100 
027306 


001276 


000014 
043702 
023222 


044042 
177776 
023222 


027244 062737 000002 001332 
027252 000207 


151654 
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SEQ 0125 
+ ADVANCE THE POINTER 
+ RETURN 


NIMUM. 
S te cr TIRING TESTS 
ERANCE AND IF NOT FLAG THE BAD TIMES. 


+GO REPORT THE TIMES 
POINT TO THE PROPER TABLE 


ESS OF ASCIZ MESSAGE NUMBER 1 

; ESS OF ASCIZ MESSAGE NUMBER 2 
MINIMUM TIME ALLOWED 
+MAXIMUM TIME ALLOWED 
PICKUP THE TABLE POINTER 

+ INHIBIT TIME REPORTS? 

+ YES--BRANCH 

+ADORESS OF MESSAGE NUMBER 1 
ADDRESS OF MESSAGE NUMBER 2 
PICKUP THE LOW LIMIT 


+PUT (R4)+ ON THE STACK 
+ CHANGE (R4)+ TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 


ANY SEEKS BELOW THE LOW LIMIT 
+ NO--BRANCH 


+PUT -2(R4) ON THE STACK 
+ CHANGE -2(R4) TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
;“BELOW THE MINIMUM OF" 

;PUT R3 ON THE STACK 
+ CHANGE R3 TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 


; 


+PUT (R4)+ ON THE STACK 
+ CHANGE (R4)+ TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 


+ANY SEEKS ABOVE THE HIGH LIMIT 
+ NO--BRANCH 
; YES--REPORT HOW MANY 

~2(R4) ON THE STACK 


AOD #2, a8TIN PT 
RTS PC 
+ THIS ROUTINE 1S USED TO TYPE THE A 
; MAXIMUM, AND AVERAGE TIMES 
+ 1T WILL ALSO CHECK THE TIMES T 
> THEY ARE WITHIN TOL 
tr Wy THIS RCUTINE DESTROYS R2-RS 
; JSR RO, ae TYPTIN 
é TABLE 
; RETURN 
; TABLE: MSGADR1 
; MSGAOR 2 
F MIN. ALLOWED 
; MAX. ALLOWED 
TYPTIM: MOV (RO)+,RZ 
BIT #SWO06. @SHR 
BNE 7$ 
MoV (R2)+, 2% 
MOV (R2)4,R5 
MoV (R2)4+,R3 
MoV (R2),R2 
MoV #TIM UP.RY 
15: TYPE 
25: . WOR 0 
TST 14(R4) 
BEQ 6% 
TYPE -MSGMIN 
MoV (R4)+, -(SP) 
JSR PC, @#$S82D 
JSR PC, @RSSUPRS 
TYPE - MSGOUS 
TST (R4)+ 
BEQ 
TYPE SP 
MoV -2(R4),-(SP) 
JSR PC, aes 
JSR PC, @@SSUPRS 
TYPE - MBELOW 
MoV R3.- (SP) 
JSR oat 
JSR PC. d@SSUPRS 
TYPE P s 
38: TYPE P 
MoV (R4)+, - (SP) 
JSR PC. @#$S820 
JSR PC, @@SSUPRS 
TYPE -MSGOUS 
TST (R4)+ 
BEQ $ 
TYPE MSG. SP 
MoV -2(R4),-(SP) 
JSR PC, 6#$SB82D 


+ PUT 
i; CHANGE -2(R4) TO DECIMAL ASCIZ 
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027454 
02 


027632 
027636 


020237 
001410 


020137 
001410 


"23614 


023222 
0 2 


001520 


001522 
001520 


001520 


001512 


% PROGRAM SUBROUTINES 223 
JSR PC, @@SSUPRS 
MABOVE 


TYPE , MABOV 
nov RZ. -(SP) 
JSR C.08s 
JSR PC, @8SSLPRS 
TYPE - MSGOU 

4§: TYPE - MSGAVG 


ROL (SP )+ 
BPL 5$ 
INC (SP) 
55: 
JSR $ 
JSR PC, @ASSUPRS 
TYPE - MSGOUS 
TYPE SG. S 
MoV -2(R4),-(SP) 
JSR PC, ae 
JSR PC, @#SSUPRS 
TYPE , MSGNU 
Mov RS, 25 
BEQ 
CLR RS 
BR 1$ 
65: TYPE , MSGNON 
7$: RTS RO 


fb WITHOUT LEADING ZEROS 
“ABOV MAX IMUM OF“ 


+; CHANGE RZ TO DE 
TYPE WITHOUT LEADING ZEROS 


;“AVG=" 
+FORM THE AVERAGE 


+ 1S THE REMAINDER OVER HALF? 
+ NO--BRANCH 
+ YES--ROUND UP 


+CHANGE TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 


+PUT -2(R4) ON THE STACK 
+ CHANGE -2(R4) TO DECIMAL ASCIZ 
+ TYPE ee LEADING ZEROS 
“SEEKS TIMED" 
+ NEXT ne SSAGE POINTER 
+ 1F NONE EX 
NO MORE THAN 2 


s EXIT 


+ THIS SUBROUTINE WILL INCREMENT THE TRACK 


; JSR RO. a® INCTRK 
: RE TURN1 
: RE TURN2 


INCTRK: CMP RZ, @aLT 
8 2$ 


ADD a8 iT, RZ 
CMP R2, @aLT 


BLE 1$ 

MoV @ALT. RZ 
1$: TST (RO)+ 
2S: RTS RO 


JSR RO. a# INCCYL 
RE TURNI 
RE TURNZ 


INCCYL: CMP R1, d#LC 
BEQ 2$ 


; 
, 
; 
; 
; 
; 


+m (R2) BY THE AMOUNT SPECIFIED BY ‘IT’. 


+ TRACK NUMBER GREATER THAN LT15 
+ TRACK NUMBER INCREMENTED 


+LAST TRACK COMPLETED? 
+ YES--EXIT 
+NO--UPDATE TRACK 
+ TRACK TO BIG? 
+NO--EXIT 
VES-<SET TRACK TO LAST TRACK 
;ADJUST FOR RETURN 2 
ETURN 


‘ 


THIS SUBROUTINE WILL INCREMENT THE CYLINDER 
+7 +e (R1) BY THE AMOUNT SPECIFIED BY ‘IC’. 


+CYLINDER NUMBER GREATER THAN LC15 


+ CYLINDER NUMBER INCREMENTED 


+LAST CYLINDER COMPLETED? 
+ YES--EXIT 


SEQ 0126 
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027640 
027644 
027650 
027652 
027656 
027660 


010122 


001514 
001512 


001512 


004212 
000002 


001634 


047714 
000400 


001630 


177400 
047714 
075714 


000002 


000002 
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BLE 
HOV aaLc, Ri ; YES--SET CYLINDER TO LAST CYLINDER 
15: TST (RO)+ [ADJUST FOR RETURN 2 
25. RTS RO | RETURN 
‘THIS ROUTINE DECREMENTS THE SECTOR ADDRESS. 
; CLR (SP) ;CLEAR THE STACK 
: JSR PC DECSEC ; SUBROUTINE ENTRY 
; RE TURN 
DECSEC: MOVB RP. REGSRPDA, 2(SP) ;PUT THE SECTOR ADDRESS ON THE STACK 
DEC 2(SP) ;DECREMENT THE ADDRESS 
BPL 15 [BR IF NOT CORRECTION NEEDED 
MOV PRILMT #22. -2(SP)  OVERFLOM OCCURED, FORCE TO MAXIMUM ADORESS 
1S: RTS PC | RETURN 
; THIS SUBROUTINE 1S USED TO FILL THE DATA BUFFER 
;MITH ADDRESSES FROM O TO 21 WITH EACH ADDRESS 
BEING STORED IN 256 CONSECUTIVE LOCATIONS 


: SAVREG 
MoV 


NO--UPDATE CYLINDER 
: CYLINDER TO B1G? 


ADD oFic, Ri 
chp | aaa 


JSR PC, aaF ILBUF 


RE TURN 
: SAVREG *SAVE RO - RS 
CLR FIRST DISK ADDRESS 


RO 
MoV SBUFFER,R1 + START FILLING HERE 


MoV #256. . RZ +D0 256 WORDS 

MoV RO, (R1)+ + STORE 

DEC R2 +MORE? 

BGT 2$ + YES-- BRANCH 

INC RO +NO--UPDATE DISK ADDRESS 
CMP PRMLMT +22, RO + DONE? 

BHIS 1s +NO--BRANCH 

RESREG +RESTORE RO - RS 

RTS PC + RETURN 


/THIS ROUTINE WILL CLEAR THE BUFFER BY 
‘tau EACH WORD TO "177400". 


JSR RO. @#CLRBUF 
RE TURN 


+SAVE RO - RS 

#177400.R1 +WORD TO FILL BUFFER WITH 

MOV SBUFFER.R2 +FIRST ADDRESS OF BUFFER 

MoV @BUFFER+<(512 422 >, ae deo ADORESS+2 OF BUFFER 
+ a% 


MoV R1,(R2) sFi OS 1. %.. +... 5625 
MoV Ri, (R2)+ FILL WORDS 2,10.... 250... . 5626 
MoV R1,(R2)+ FILL WORDS 3.11.... 251... . 5627 
MoV Ri, (RZ2)+ +FILL WORDS 4,12,... 252... . 5628 
MOV R1,(R2)+ ‘FILL WORDS 5,13.... 253... . 5629 
MOV R1,(R2)+ +FILL WORDS 6.14.... 254... . 5630 
MOV Ri, (R2)+ ‘FILL WORDS 7,15.... 255... . 5631 


ae 


SEQ 0127 


CZR JAC 
CZR JAC. 


I 
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SRIF FSRS EE RRRSERSESSSSSSSSSSEREPRER EO RERERRS 


L 10 
27-JUL-78 09:24 PAGE 132 


RPO4/S5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 

Pil 27-JUL-78 09: 18 33% PROGRAM SUBROUTINES 4823 SEQ 0128 
030000 010122 MoV Ri, (R2)4 4 ae | _MoRDS 8.16,... 256... . 5632 
030002 020203 CnP R2Z.R3 
030004 103766 BLO 1$ RO RANCH 
030006 104413 RESREG RESTORE RO - RS 
030010 000 Ss RO 7RETURN FROM CALL 

+ THIS ROUTINE IS USED TO CHECK THE DATA BUFFER 
+FOR ADDRESSES O THROUGH 21 WITH EACH ADDRESS 
+o ag STORED IN 256 CONSECUTIVE LOCATIONS 
; JSR RO, @RCKSCTR 
; RE TURN 
030012 104412 CKSCTR: SAVREG ;SAVE RO - RS 
03001% 162706 000004 SuB #4, SP ;RESERVE TEMP. STORAGE AREA 
030020 1 CLR R1 ;FIRST SECTOR 
030022 012716 047714 MoV #BUFFER, (SP) ;FIRST ADORESS OF DATA BUFFER 
030626 0002 CLR 2(SP) 7NO ERRORS 
030032 012702 000020 1$: MoV #16. ,.R2 >; LOOP COUNT (16%16=256) 
soe 011603 - Mov (SP).R3 +GET 1ST ADDRESS OF THIS SECTORS DATA 
030040 020123 CMP Ri, (R3)+ 7 WORD 1 
G30052 001063 BNE 7$ > BRANCH IF BAD 
0300%4 020123 CMP R1,(R3)+ ;WORD 2 
O300KV— 001061 BNE 7$ > BRANCH IF BAD 
030050 123 CMP R1, (R3)+ ;WORD 3 
030052 001057 BNE 7$ >BRANCH IF BAD 
030034 020123 CMP R1,(R3)+ ;WORD 4 
030036 001 BNE 7$ >BRANCH IF BAD 
030060 020123 CMP R1,(R3)+ ;WORD 5 
030062 00105 BNE 7$ 7 BRANCH IF BAD 
030064 029123 CMP R1, (R3)+ ;WORD 6 
030066 001051 BNE 7$ > BRANCH IF BAD 
030070 020123 CMP R1, (R3)+ ;WORD 7 
030072 001047 BNE 7$ ;BRANCH IF BAD 
030074 123 CMP R1,(R3)+ sWORD 8 
001045 BNE 7$ ; BRANCH IF BAD 
030100 020123 CMP R1,(R3)+ ;WORD 9 
030102 001043 BNE >BRANCH IF BAD 
03010% 020123 CMP R1,(R3)+ ;WORD 10 
0301 001041 BNE 7$ > BRANCH IF BAD 
Bs2110 0620123 CMP R1,(R3)+ ;WORD 11 
030112 901037 BNE 7$ 7 BRANCH IF BAD 
0301148 020i23 CMP R1, (R34 ;WORD 12 
030116 001035 BNE 7$ > BRANCH IF BAD 
0301 020123 CMP R1, (R3)+ ;WORD 13 
030122 001033 BNE 7$ 7 BRANCH IF BAD 
03012% 020123 CMP R1, (R3)+ ;WORD 14 
030126 001031 BNE 7$ > BRANCH IF BAD 
030130 020123 CMP R1,(R3)+ ;WORD 15 
030132 001027 BNE 7$ ; BRANCH IF BAD 
030138 020123 CMP R1,(R3)+ ;WORD 16 
030136 001025 BNE 7$ ;BRANCH IF BAD 
030140 005302 DEC R2 ;FINISHED WITH THIS SECTORS DATA? 
030142 13 BNE 2$ + NO--BRANCH 
030144 062716 001000 3$ ADD #512... (SP) + YES--F IRST ADDRESS OF NEXT SECTOR 
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Pil 27-JU-78 09: 18 % PROGRAM SUBROUTINES 22% SEQ 0129 
030150 005201 INC Ri MOVE TO NEXT SECTOR 
030152 023701 001630 CMP PRALAT +22, R1 + DONE? 

030156 103325 BHIS 1$ + NO--BRANCH 

030160 005766 000002 4$: TST 2(SP) ERROR OCCUR? 

03016" 001406 BEQ 6$ ; NO--BRANCH 

030166 123737 001364 001103 ChPS HERR. CT. aNSERFLG + WAX. ERROR OCCURRED? 
030178 101002 BH! RANCH 

030176 013700 001252 55: Mov @#BYPASS. RO 3 TAKE ERROR EXIT 

030202 062706 000004 6$: ADD #4, SP +FREE TEMP. AREA 

030206 104413 RESREG sRESTORE RO - RS 

030210 000200 RTS RO RETURN FROM CALL 

030212 010304 7$: MoV R3,R4 +FORM WORD NUMBER AND 
030218 161604 SUB (SP), R4 sADORESS TO CONTINUE FROM 
030216 010405 Mov R4.RS 

030220 06204 ASR Ri +WORD NUMBER 

030222 042705 177740 BIC @ C37,R5 

030226 001002 BNE 8$ BRANCH IF NOT A MULTIPLE OF 16 
030230 012705 000040 MoV #40. R5 +SET TO WORD 16 

03023" 00¢.305 8$: ASL RS 

030236 062705 030040 ADD #2$5.R5 + ADORE SS 

030282 016337 177776 001126 MoV -~2(R3), @SBDDAT ; SAVE BAD DATA 

030250 005766 000002 TST 2(SP) #PIRST ERROR? 

030254 001015 BNE 10$ RANCH 

030256 013737 004176 001270 MoV @#OTAOPS+1 2. aaCYL. OS ; ; CYLINDER NUMBER 
030264 113737 004175 001274 Move @#OTADPB+11, a8 TRK. DS ; TRACK NUMBER 

030272 012737 030302 001206 MOV 89S, SESCAPE ESCAPE TO 9$ ON ERROR 
030300 104021 ERROR 21 REPORT THE ERROR 
030302 105166 000002 95: COMB 2(SP) SET ERROR SWITCH 
030306 000404 BR 118 

030310 10$: 

030310 012737 030320 001206 MoV #118, SESCAPE +, ESCAPE TO 11% ON ERROR 
030316 104022 ERROR 22 REPORT THE ERROR 
030320 032777 001000 150612 11%: BIT #SWO9, @SHR + LOOP RR 

030326 001323 BNE 5$ + YES 

030330 032777 000002 150602 BIT #SWO1, dSUR + STOP DATA COMPARE? 
030336 001310 BNE 4$ + YES--BRANCH 

O3OMO 123737 001364 001103 ChPB @HERR. CT. aNSERFLG + MAX. ERRORS? 

O30M6 101713 BLOS 5$ YES--BRANCH 

030360 032777 000040 150562 BIT #SWO5, dSHR REPORT ONLY 1ST ERROR PER SECTOR? 
030356 001272 BNE 3$ + YES-- BRANCH 

030360 000115 JP (R5) 


+ THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 
+> eed PATTERN INTO THE DATA BUFFER. 


; MoV @NX, RO PATTERN NUMBER INDEX TO RO 
; JSR PC, @#SE TBUF 


030362 104412 SETBUF: SAVREG + SAVE _R RS 

030364 012701 047714 MOV SBUFFER.R1 iF IRST ADDRESS 

apy 013702 004170 MOV @#DTAOPB+4, RZ COUNT 

016003 003044 1$: MoV PAT. PT(RO).R3 =; PICKUP Ab ee POINTER 

030400 012321 MoV (R3)+, (R14 +MOVE WORD 1 INTO DATA BUFFER 
030402 012321 MoV (R3)+, (RID+ ;MOVE WORD 2 INTO DATA BUFFER 
03040" 012321 MOV (R3)+, (R1ID+ ;MOVE WORD 3 INTO DATA BUFFER 
030406 012321 MOV (R3)+, (RID+ +MOVE WORD 4 INTO DATA BUFFER 


CRETE EL EEER DE 


ae 
=o 
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. Pil 27-JUL-78 09: 18 3 PROGRAM SUBROUTINES 232 SE@ 0130 
0304810 012321 nov (R3)4, (R14 ;MOVE WORD & INTO DATA BUFFER 
030812 012321 nov (R3)+, (R14 7 MOVE WORD S INTO DATA BUFFER 
030418 012321 nov (R3)4, (RI)D4 ;MOVE WORD INTO DATA BUFFER 
030416 012321 nov (R3)4, (R14 ;MOVE WORD 8 INTO DATA BUFFER 

012321 nov (R3)4, (R14 7MOVE WORD 9 INTO DATA 
030422 012321 nov (R3)4, (R14 ;MOVE WORD 10 INTO DATA BUFFER 
030824 012321 nov (R3)4. (R14 ;MOVE WORD 11 INTO DATA BUFFER 
030426 321 nov (R3)4, (R1)4 7MOVE WORD 12 INTO a F 
0304830 012321 nov (R3)4, (R14 ;MOVE WORD 13 INTO DATA BUFFER 
030432 1 MoV (R3)4, (R14 ;MOVE WORD 14% INTO A BUFFE 
0304 34 12321 nov (R3)4, (R1)4 ;MOVE WORD 15 INTO A BUFFER 
030836 012321 nov (R3)4, (R1)4 ;MOVE WORD 16 INTO DATA BUFFER 
0308480 062702 000020 ADD #16. .R2 ; DONE? 
O30444 001353 BNE 1$ ;NO-- 
O30446 104413 RESREG sRESTORE RO - RS 
030450 000207 RTS PC 7 RETURN 
+> THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
— THE DATA BUFFER 
3 nov @NX, RO ;PATTERN NUMBER INDEX TO RO 
3 JSR PC, aaDATCMP 
; RE TURN 
030452 104412 DATCMP: SAVREG , 7SAVE RO - RS 
030454 012701 047714 Mov SBUFFER,R1 FIRST ADDRESS OF BUFFER 
G30%60 013702 004170 Mov @ROTADPB+4.RZ2 ;WORD COUNT 
O30464 005046 CLR -(SP) ;NO ERROR 
016003 003044 15: Mov PAT. PT(RO).R3 ;PATTERN POINTER 
030472 23: 
030472 162321 SUB (R3)+, (R1)+ +>CHECK WORD 1 
030874 001044 BNE 4§ ; BRANCH IF DIFFERENT 
030876 162321 SUB (R3)+, (R1)+ + CHECK WORD 2 
030600 001042 BNE 4§ ;BRANCH IF DIFFERENT 
030502 162321 SUB (R3)+, (R1)4 + CHECK 
03; 8 BNE } ) + BRANCH IF DIFFERENT 
030606 162321 ,  S$uB (R3)4, (R1)+ ; CHECK 4 
030510 1 | BNE Wg 7BRANCH IF DIFFERENT 
030512 162321 \ $uB (R3)+, (R1)+ > CHECK WORD 5 
03061% 001034 , BNE } ) 7 BRANCH IF DIFFERENT ‘ 
030616 162321 SUB (R3)+, (R1)+ ; CHECK WORD 6 
030620 001032 BNE 4§ 7 BRANCH IF DIFFERENT 
030622 162321 SuB8 (R3)+, (R1)4 > CHECK WOR 
030624 001030 BNE Wg > BRANCH IF DIFFERENT 
030626 162321 SUB (R3)+, (R14 ; CHECK 
030630 001026 BNE ug >BRANCH IF DIFFERENT 
030632 162321 SuB (R3)+, (R1)+ ; CHECK 
030638 001024 BNE 4S rg 1F DIFFERENT 
‘030636 162321 SuB (R3)+, (RI)+ ; CHECK WOR 
030640 001022 BNE 4§ ‘ SRAKCH 1F DIFFERENT 
peay 162321 SuB (R3)+, (R1)4 > CHECK WORD 11 
00102C BNE 4§ > BRANCH IF themes 
O30646 162321 SuB (R3)+4, (R1)4 ; CHECK 12 
030660 001016 .%, BNE WG >BRANCH IF DIFFERENT 
030552 16232! SuB (R3)+, (R1)+ ; CHECK 1 
030554 001014 BNE 4§ >; BRANCH IF DIFFERENT 


CZR JAC 
Cc 


ae 


ae 


EFgE 


CCELECECe Cees Perreererc cece eecr cere eee 


33 
3 


meme gen mmanmenacmam 


030770 
030774 
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012701 
013702 


047714 
001630 


001270 
001272 


001206 
150174 
001103 
000016 


3 PROGRAM SUBROUTINES 322 


BNE 
3S: TST 


4§: mov 


5S: 
6$: 


7$: BIT 


8s: JMP 


eres ae 
syeet EPS 
(R3)+, (R1)D4 
ony 

#16. .R2 

4 

(SP )+ 

PC 

R1,R4 
SBUFFER.RY 
Ry 


R3,RS 
PAT. PT(RO).RS 
RS 


#25.R5 
-(R3), -(R1) 


81 
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+ CHECK WORD 1 
+ BRANCH IF DIFFERENT 
+ CHECK 


4 rg iF DIFFERENT 
+ BRANCH iF DIFFERENT 
+DONE ? 

NO-- BRANCH 
Yes -- CLEAN UP STACK 
+RESTORE RO - RS 
FORM THE WORD NUMBER 


+WORD NUMBER 
FORM ADDRESS TO CONTINUE FROM 


+ ADORE SS 
+ RECONSTRUCT THE BAD WORD 
+ SAVE THE ERROR INFORMATION 


AST DATA COMPARE ERROR? 
RANCH 


38 DTADPB+1 2, aNCYL. 0S ; ; CYLINDER 
@DTAOPB+1 1. aaTRK. OS ; TRACK 
@#OTADPB+10, @#SEC. DS ; SECTOR 


_ SESCAPE 
#SWO1, @SHR 


+GET TEST PC+4 
+, ESCAPE TO 5$ ON ERROR 
iR > 


+SET THE ERROR sui TCH 


+: ESCAPE TO 7$ ON ERROR 
REPORT THE ERROR 
+ STOP DATA COMPARE? 


YES--EXIT 
HERR. CT. @#SERFLG ; MAX. “ERRORS? 
es 16(SP) 1 YES-- ERROR EXIT 


(R5) 


+NO--CONTINUE AT NEXT WORD 


+ THIS ROUTINE WILL FILL THE DATA BUFFER (256222 WORDS) WITH 


+A RANDOM PATTERN. 


THE FIRST TWO WORDS OF EVERY 256 WILL 


BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE 


‘ 


; JSR 

; RE TUR 

FILRAN: MOV 
MoV 


RO, o#F ILRAN 


aBUFFER.R1 
PRMLMT+22,R 


2 


+NEXT 254 WORDS. 
+7 vd THIS ROUTINE DESTROYS R1 AND R2 


MAXIMUM NUMBER OF SECTORS 


SEQ 0131 


7077 
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27-JU-78 09: 3 PROGRAM SUBROUTINES 822 SEQ 0132 
004037 031210 1$: JSR RO, SBRANPAT 
005302 DEC R2 
100374 BPL 1$ 
000200 RTS RO 
5 Yurs ROUTINE USES THE FIRST TWO WORDS -# T 
yg BUFFER TO wre TED A RANDOM PATTERN. THEN 
READ BUFFER 1S COMPARED TO THE PATTERN GENERATED. 
NOTE: THIS ROUTINE DESTROYS R1-R4 
; JSR RO, @#RANCK 
; RE TURN 
031012 013746 023610 RANCK: MOV @SSHINUIL-(SP) ;SAVE THE PRESENT RANDOM NUMBER 
031016 01374%% 023612 Mov @8SLONUIL - (SP) 
031022 012702 050714 nov SBUFFER4512. .R2Z2 ;: READ BUFFER ADDRESS 
031026 012701 051714 nov @BUFFER+1024. .R1 ; RANDOM PATTERN ADORESS 
031032 010103 Mov Ri. RI ;COPY IT INTO R3 FOR LATER USE 
0310348 011237 023612 Mov (R2), 20SLONUMN ;PRIME THE RANDOM NUMBER GENERATOR 
031080 016237 000002 023610 Mov 2(R2), d@SH 1 NUM 
0310%6 004037 031210 JSR RO, ARANPAT ; GENERATE A RANDOM PATTERN 
031052 012637 023612 MoV (SP )+, @SLONUM ; RESTORE PRESENT RANDOM NUMBER 
031056 012637 023610 MoV (SP )+, a@$H1 NUM 
031062 005046 CLR -(SP) 7NO ERRORS 
031064 162322 1$: SUB (R3)4, (R24 ;ARE THESE TWO WORDS DIFFERENT? 
031066 001441 BEQ 4y 3 NO--BRANCH 
031070 012737 031142 001206 Mov #35. SESCAPE +2; ESCRPE TO 3S ON ERROR 
031076 064342 ADD -(R3),-(R2) ;RECREATE THE BAD WORD 
031100 010237 001122 MoV R2, @#SBOAOR ; ADDRESS OF BAD DATA 
03110% 010337 001120 Mov R3. @#SGOROR ; ADORE SS OF GOOD DATA 
031110 012237 001126 Mov (R2)+, @#SBDDAT ;BAD DATA 
03111% 012337 001124 MoV (R3)+. @&SGDDAT ;G00D DATA 
031120 010204 nov R2.R4 ;FORM WORD NUMBER (1 TO 256) 
G31122 162704 050714 sus @BUFFER4512. .R4 
031126 006204 ASR RY 
031130 005716 TST (SP) ;FIRST ERROR 
031132 001002 BNE 2s ; NO--BRANCH 
031134 106116 COMB (SP) + YES--SET ERROR SWITCH 
031136 104015 ERROR 15 ;REPORT THE ERROR 
031140 104016 24: ERROR 16 REPORT ne ERROR 
031142 032777 001000 3S: BIT #SWO9, @SWR ; LOOP ON ERROR? 
031160 001012 BNE § YES--BRANCH 
031162 1237 001364 CMPB @HERR. CT, a#SERFLG ;MAX. ERRORS OCCURRED? 
031160 101406 BLOS 5$ 3 YES--BRANCH 
031162 032777 000002 BIT #SWO1, @SWR + STOP COMPARING? 
031170 001002 BNE 5$ ; YES--BRANCH 
031172 020103 4§: CMP Ri. RZ ;ALL DATA BEEN COMPARED? 
031174 101333 BHI 16 ; NO--BRANCH 
031176 726 55: TST (SP )+ + ERROR OCCUR? 
031200 001402 BEQ NO--BRANCH 
031202 013700 001252 MoV @*#BYPASS. RO : TAKE ERROR EXIT 
031206 200 65: RTS RO 7; EX 


256 WORD BUFFER WITH A RANDOM 


+ THIS ROUTINE F A 
HE FIRST TWO WORDS ARE THE BASE 


IL 
+PATTERN OF WHICH 
;OF THE PATTERN. 


LS 
HT 
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Pil 27-JUL-78 09: 18 333 PROGRAM SUBROUTINES 223 SE@ 0133 
+> CALL 
; mov SADR. R1 ;POORESS OF THE BUFFER 
; JSR RO. @BRANPAT 
3 RE TURN 
031210 010246 RANPAT: MOV R2.-(SP) + SAVE RZ 
031212 012702 000200 nov #256. /2..R2 ;GENERATE 256 WORDS 
031216 000402 BR 2$ 
031220 004737 023512 1$: JSR PC, d@SRAND > GENERATE A RANDOM NUMBER 
031224 013721 023612 25: nov @SSLONUML (R1)4 ;PUT LOW WORD IN BUFFER 
03‘ 230 013721 023610 nov @SSHINUIL (R1)+ PUT HIGH WORD IN BUFFER 
031234 005302 DEC R2 + DONE? 
031236 003370 BGT 1$ ; NO--BRANCH 
031240 012602 mov (SP )4+,R2 ; RESTORE R2 
031242 000200 RTS RO sEXIT 


THIS ROUTINE GENERATES RANDOM CYLINDER. TRACK. AND SECTOR 
; ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10 AND DTADPB+12). 
tog THIS ROUTINE DESTROYS R1-R3 


JSR RO. @#RANADR 


; 
, 
’ 
; 
; 
, 


RE TURN 
031244 004737 023512 RANADR: JSR aE ptopay A +GENERATE A yo NUMBER 
031250 113701 023612 Move 28S. ONUML R FORM SECTOR IN Ri 
031254 113702 023613 MOVB SESLONUN 1, R2 7 FORM TRACK IN Nee 
031260 013703 023610 Mov @8SHINUML R3 FORM CYLINDER IN R3 
031264 105701 TSTB R1 +ENSURE THE SECTOR 1S BETWEEN O AND 21 
031266 002403 BLT 2$ 
031270 123701 001630 1$: CMPB PRMLNT+22, Ri + CHECK MAXIMUM SECTOR ADDRESS 
1274 103003 BHIS 3$ 
031276 000241 2$: 
031300 106001 RORB R1 
031302 000772 BR 1$ 
031304 105702 3$: TSTB R2 ENSURE THE TRACK IS BETWEEN O AND 18 
031306 002403 BLT 5$ 
031310 122702 000023 4$: CMPB #19. ,R2 
031314 003003 BGT 6$ 
031316 000241 55: CLC 
031320 106002 RORB R2 
031322 000772 R 4§ 
0313248 023703 001510 6$: CMP a#FC,R3 +ENSURE THE CYLINDER 1S BETWEEN FC AND LC 
031330 003413 BLE 7$ 
031332 241 CLC 
0313354 ROR R3 
031336 ADC R3 
031340 BNE 
0313%2 010103 MoV R1,R3 
031344 3 SWAB 3 
0313%6 060203 ADD R2.R3 
031360 006203 INC 
031362 003364 BGT 6$ 
031354 03 NEG R3 
031366 000762 BR 6$ 
031360 023703 001512 7$: CMP @ALC.R3 
031364 002003 BGE 8$ 





CZR JAC. P11 
7180 031366 
7181 1 
7182 031372 
7183 1 
718% 031400 
7185 031402 
7186 031 
7187 031 
7188 031 
7189 031414 
7190 O31 
7191 031424 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7201 031426 
7202 031434 
7203 031436 
7204 031442 
7205 
7206 031464 
7207 031 
7208 031470 
7209 031474 
7210 031500 
7211 031502 
7212 031504 
7213 031512 
7214 031516 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 031520 
7232 03 
7233 031526 
7234 031530 
7235 031532 


000241 
006003 


032777 


010337 
104401 


000000 
010446 
104402 


001510 


000200 
031444 


001220 
001220 


031526 


147504 


001222 
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333 PROGRAM SUBROUTINES 222 


CLC 
ROR R3 
BR 7$ 
8$: chp @tFC.R3 
BLE 9S 
INC R3 
SWAB R3 
BR i 
9$ Move R1.@8OTADPB+10 {SAVE SECTOR ADDRESS 
Move R2. GRD TADPB+1i {+ SAVE TRACK ADDRESS 
Mov R3. @RDTADPB+12 ;SAVE CYLINDER ADDRESS 
RTS RO + RETURN 
+ THIS ROUTINE 1S USED TO INPUT THE “CONTROL SWITCHES”. 
+ 1F SWR<O7>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW 
SETTING 1S READ AND STORED. 
+7 THIS ROUTINE DESTROYS R3 AND RY 
; JSR PC, @#GETSWR 
; RE TURN + (C. SHR)=DESIRED CONTROL SWITCHES 
GETSWR: BIT &SWO7, @SHR READ CONTROL SWITCHES? 
BEQ 2$ + NO--BRANCH 
TYPE , 655 ++ TYPE ASCIZ STRING 
BR 64S +GET OVER THE ASCIZ 
ES gee /ASCIZ <CR><LF/SET SWR<O7>=0/ 
1$: MoV MSG. CS.R3 +“CONTROL SWITCHES=" 
MoV @8C. SWR.RY PRESENT CONTROL SWITCH SETTINGS 
JSR RO. @#GE TNUN +GET THE NEW SWITCH SETTINGS 
BR i$ + COMMA 
NOP +PERIOD 
Mov C. SHR, SAVCSH + SAVE PREVIOUS VALUE 
MoV R4, @#C. SUR + DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
23: RTS PC +RETURN FROM CALL 


; THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
; INPUT AN ASC 12 STRING AND CHANGE THE STRING TO OCTAL 
NOTE: THIS ROUTINE DESTROYS R1 


; nov #ADR, RI ;ADDORESS OF ASCIZ MESSAGE 

; MoV @NUM, R4 7 OCTAL NUMBER 

; JSR RO, a#GE TNUN 

3 RE TURNI >; INPUT TERMINATED WITH A COMMA 

; RE TURN2 ; WITH A PERIOD 

3 RETURN ;WITH A DOUBLE PERIOD 

5 +R4= INPUT 

; +RZ=R4R3Z2 FOR ALL 

; ; THREE RETURNS 

GETNUM: MOV R3,2$ + SAVE MESSAGE POINTER 

1$: TYPE ; TYPE THE MESSAGE 

25: -WORD O ; MESSAGE POINTER GOES HERE 
MoV R4,-(SP) > SAVE RY FOR TYPEOUT 
TYPOC : 360 TYPE--OCTAL ASCII(ALL DIGITS) 


SEQ 0134 
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Pil 27-JUL-78 09: 18 % PROGRAM SUBROUTINES 323 SEQ 0135 
1538 104401 043076 TYPE - SLASH hl ag 
031540 104411 ROLIN ;READ AN ASCIZ STRING 
031542 012601 MGw (SP )+,R1 ;ADORESS OF FIRST CHARACTER 
031544 004037 033770 JSR RO, @8CK. CHR + CHECK ONE CHARACTER 
031550 031524 1$ + ILLEGAL CHARACTER 
031552 031524 1$ + CARRIAGE RETURN 
031554 031 3$ “sf. 
031556 031612 7$ “," 
031560 031620 jap 
031562 031 11$ DIGIT O-9 
strate 005301 is DEC Ri +DECREMENT THE INPUT POINTER 
031566 004037 034230 JSR RO. @#CK. NUM + CHECK THE NUMBER 
031572 031524 1$ + ILLEGAL INPUT 
031574 031606 6$ + TERMINATED WITH A “.” OR “CR” 
031576 031604 5$ + TERMINATED WITH A”. 
031600 031602 4§ + TERMINATED WITHA". ” 
031602 005720 4$: TST (RO)+ ; LE PERIOD 
03160% 005720 55: TST (RO)+ +SINGLE PERIOD 
010204 6$: MoV R2,R4 + COMMA--SAVE INPUT NUMBER 
031610 000414 BR 10$ +GO TO EXIT 
031612 105711 7$: TSTB (R1) + TERMINATOR AFTER A COMMA? 
031614 001343 BNE 1$ +NO--LOOP 
031616 000411 BR 10$ + YES--EXIT 
031620 105711 8$: TSTB (R1) + TERMINATOR AFTER A PERIOD? 
031622 001406 BEQ 98 : YES--EXIT 
031624 122721 000056 CMPB a’. (R1)+ +NO--DOUBLE PERIOD? 
031630 001335 BNE 1$ + NO--LOOP 
031632 105711 TSTB (R1) + YES-- TERMINATOR? 
031634 001333 BNE 1$ ;NO--LOOP 
031636 005720 TST (RO)+ ; DOUBLE PERIOD 
031640 005720 9S: TST (RO)+ +PERIOD 
031642 010402 105: MoV R4,R2 + COMMA--POSITION THE 
031644 000302 SWAB R2 +NUMBER IN CASE IT 
031646 006202 ASR R2 71S THE PRIORITY LEVEL 
031650 006202 ASR R2 
031652 006202 ASR R2 
031654 000200 RTS RO sEXIT 
; THIS ROUTINE IS USED TO CHANGE OR MODIFY 
;THE TEST PARAMETERS. IT GIVES THE OPERATOR 
+ THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST. WHICH 
+ TESTS TO RUN AND HOW MANY TIMES TO 
;REPEAT EACH TEST 
031656 104412 GT. PRM: SAVREG +SAVE RO - RS 
031660 005037 001232 GT. PR1: CLR DRVSEL +NO DRIVE SELECTED 
031664 104401 031672 TYPE -65$ ++ TYPE ASCIZ STRING 
031670 000406 BR 645 +GET OVER THE ASCIZ 
3365$: .ASCIZ <CR><LF>/DRIVE(S)=/ 
031706 645: 
031706 104411 ROL IN +READ TTY 
031710 012601 MoV (SP)+,R1 +ADORESS OF ASCIZ STRING 
031712 004037 033770 JSR RO. @#CK. CHR + CHECK ONE CHARACTER 
031716 031660 GT. PR1 + ILLEGAL CHARACTER 


031720 031660 GT. PR1 + CARRIAGE RETURN 
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Pil 27-JU-78 09: 18 PROGRAM SUBROUTINES 222 SEQ 0136 
031722 031660 GT. PR1 a pat 

031724 031660 GT. PR1 "pte 

031726 031660 GT. PR1 oA 

031730 031732 1$ ;01IGIT 0-9 

031732 005301 1$: DEC R1 

031734 23: 

031734 012702 000007 nov #7.R2 ;UPPER LIMIT - INPUT 

031740 004037 O34044 JSR RO, d#CK. DIG + CHECK ha wo 

031744 031660 GT. PRi > ILLEGAL 1 

031746 031660 GT. PR1 >; INPUT TO VAnGE 

031750 031756 , 3$ > TERMINATED WITH A ae oR “CR” 
031752 032002 4% > TERMINATED WITH A”. ” 
031754 032002 uy ; TERMINATED WITH A ”.. 
031756 156237 034504 001232 35: B1SB or*~ thames ORVSEL ;SET THE ORIVE SELECTED BIT 
031764 105741 TSTB (R1 ; WAS THE LINE Ms pal a 
031766 001362 BNE 2 ;NO-GET THe NEXT ORIVE 
031770 005037 0012%4 CLR oe TSTNMS ; DESELECT ALL TESTS 
031774 005037 00123. CLR TSTNMNS+2 

032000 000405 BR GTTST1 YES--SELECT TEST 

032002 156237 034504 001232 4S: B1S8 ATABIT(R2). DRVSEL ;SET THE SELECTED ORIVE BITS 
032010 104413 GT. PR2: RESREG ; RESTORE RO - RS 

032012 000207 RTS PC ; EXIT 

032014 GTTST1: 

032014 104401 032022 TYPE , 65$ +; TYPE ASCIZ STRING 

032020 000403 BR 64 ;;GET OVER THE ASCIZ 

;3;65$: .ASCIZ /TEST=/ 

032030 64S. 

032030 104411 ROL IN ;READ AN ASCIZ STRING 
032032 012601 MoV (SP )+,R1 +POINTER TO Ri 

032034 122711 000056 ChPB #'.,(R1) ;DOUBLE PERIOD? 

032040 001007 BNE 1$ ; NO--BRANCH 

032082 122761 000056 000001 CMPB #'.,10R1) 

032050 001003 BNE 1$ 

032052 105761 000002 TSTB 2(R1) 5*€a"? 

032056 001754 BEQ GT. PR2 + YES--EXIT 

032060 006037 001234 1$: CLR TS TNMS :NO TEST SELECTED 

032064 006037 001236 CLR TSTNMNS+2 

032070 006037 001240 CLR OPNFLG ;NO TESTS TO BE OPENED 
032074 006037 001242 CLR OPNFLG+2 

032100 121127 000123 GTTST2: CMPB (R1),8'S ;ALL SEEK TESTS? 

0321048 001004 BNE 1$ ; NO--BRANCH 

032106 062737 000777 001234 BIS #777. TSTNMS ; YES--SELECT TESTS 0-10 
03211% 000552 BR GTTST3 

032116 121127 000124 1$: CMPB (R1),8'T ;ALL TIMING TESTS? 

032122 $a BNE 2$ + NO--BRANCH 

032124 2737 036000 001234 BIS #36000. TSTNMS ; YES--SELECT TESTS 12-15 
032132 000543 BR GTTST3 

032138 121127 000101 2s: CMPB (R1),8'A +ALL ADDRESSING TESTS? 
032140 001004 BNE ; NO--BRANCH 

032142 062737 140000 001234 BIS #140000, TSTNMS ; YES--SELECT TESTS 16 & 17 
032160 000534 BR GTTST3 

032162 121127 000104 34: CMPB (R1),.8'D 3 ; DATA TEST? 

032156 001004 BNE En) NO--BRANCH 

032160 062737 000001 001236 BIS #1. TSTNMS+2 : YES--SELECT TEST 20 
032166 000525 BR GTTST3 
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121127 
001004 


Ht 27-JU-78 09:1 


033714 


033714 


000022 
032440 
000017 


001424 001234 
000055 


033714 


033714 


000022 
032440 


032440 
032440 
032440 


000037 


001424 001234 


6$: 


7$: 


8$: 


ChPB 
BNE 


(R1),8°E 
82, TSTNIS+2 
GTTST 


7 EXERCISER TEST? 
; YES-- SELECT TEST 21 


OCTAL DIGIT? 

+ NO--BRANCH 

+ YES--SAVE IT 

MOVE TO NEXT CHARACTER 
OCTAL DIGIT 

+ NO--BRANCH 

;MOVE TO NEXT CHARACTER 
+SCALE HIGH DIGIT 


+ COMBINE HIGH & i DIGITS 
VALID TEST NUMBER? 
RANCH 


4 —— 


+ SAVE THE TEST NUMBER 

+ CONVERT TEST NUMBER INTO AN INDEX 
+ CLEAR UNWANTED BITS 

+SHIFT THE BITS 

+SHIFT THE BITS 

SHIFT THE BITS 


BITS(R2), TSTNMS(R4Y) ; SELECT TEST 
= + TEST STRING? 


(R1), 
GTTST4 


RI 

RO, @#CK. OCT 
GTTST1 
R2,R5 

Ri 

* @ACK. OCT 


GTTST1 
RZ. -(SP) 
9$.R2 
(SP )+, 9% 


+ NO--BRANCH 
+ YES--MOVE TO NEXT CHARACTER 
7 OCTAL DIGIT? 


SAVE IT 
MOVE TO NEXT CHARACTER 
7 OCTAL DIGIT? 

NO--BRANCH 
;YES--MOVE TO NEXT CHARACTER 
+ SCALE HIGH DIGIT 


COMBINE HIGH & LOW DIGIT 
VALID TEST NUMBER? 

--BRANCH 
; ay THE FIRST NUMBER OF THE 
;STRING SMALLER THAN THE LAST? 
+ NO--BRANCH 
;SAVE ENDING TEST NUMBER 
+ GET STARTING TEST NUMBER 
;STORE ENDING TEST NUMBER 
fod ENDING TEST NUMBER 


SEQ 0137 
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062702 


020237 
101761 
162702 
000402 


000002 
032440 
000002 


000056 
001234 
001236 


032014 
000057 


001424 
000054 
032014 


032100 
001240 


001242 
032014 
000056 


032014 
001240 


001242 
032010 


032014 
001240 


001242 
032010 


001240 


% PROGRAM SUBROUTINES %2% 


ADD #2,R2 + INECREMENT THE TEST NUMBER 
CMP R2. 98 +SEE IF A NISHED 
BLOS 8$ BR IF NO 
SUB #2.R2 iCORRECT Test NUMBER 
BR GTTST4 | NUE 
9S: .WORD QO STORE TEST NUMBER HERE 
GTTST3: INC Ri MOVE TO NEXT CHARACTER 
GTTST4: CMPB (R1),8". + "PERIOD"? 
BEQ GTTSTS ; YES-- BRANCH 
i TSTNAMS 4 TEST SELECTED THIS CYCLE? 
TST TSTNMS+2 “ANY. TEST SELECTED THIS CYCLE ? 
BNE 1$ +BR IF YES 
JMP GTTST1 +NO 
15: CMPB (R1),8'7 ;"OPEN"? 
BNE 2$ + NO--BRANCH 
ais _— OPNFLG(R4Y) ; YES--SET BITS FOR TEST TO OPEN 
23: CMPB (R1),8', ;“ COMMA"? 
BEQ 3$ BR IF YES 
JMP GTTST1 iN 
35: INC R1 ; MOVE "0 NEXT CHARACTER 
TSTB (R1) "CR"? 
BEQ 4§ BR IF ‘CR’ 
JMP GTTST2 +NO--GO GET NEXT — 
4§ TST OPNFLG ANY TESTS TO OPEN 


BNE OPNTST BR IF YES 
+ ANY ig hk TO OPEN ? 


BNE OPNTST BR IF Y 
JMP GTTST1 ;NO--START AGAIN 
GTTSTS: INC Ri +MOVE TO NEXT CHARACTER 
CMPB (R1),8#'. + "PERIOD"? 
BEQ GTTST6 ; YES--BRANCH 
TSTB (R1) "CR"? 
BEQ 1$ + YES--BRANCH 
JMP GTTST1 
1$: TST OPNFLG +ANY TESTS TO OPEN ? 
BNE OPNTST BR IF YES 
TST OPNFLG+2 +ANY TESTS TO OPEN ? 
BNE OPNTST BR IF YES 
JMP GT. PR2 +NO--GO START TESTING 
GTTST6: INC R1 +MOVE TO NEXT CHARACTER 
TSTB (R1) 2“CR"? 
BEQ 1$ + YES--BRANCH 
JMP GTTST1 +NO--GO ASK FOR TEST 
1$: TST OPNFLG +ANY TESTS TO OPEN ? 


BNE OPNTST BR IF YES 

TST OPNFLG+2 + ANY TESTS TO OPEN ? 

BNE OPNTST IF YE 

JMP GT. PR2 ;NO--GO START TESTING 
OPEN THE SELECTED TEST FOR CHANGES 
OPNTST: SAVREG +SAVE RO - RS 

CLR (PC)+ +START WITH TEST O 
OPN.CT: .WORD 0 COUNT STORED HERE 


SEQ 0138 
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7514 033110 
033112 


09: 18 


032652 
000022 


032014 
032652 


032652 
000017 
001424 


032742 


032652 


001215 
001536 


001504 


001504 


001606 


044042 
691636 


032652 


001240 


033062 
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PROGRAM SUBROUTINES £2% 


OPN. 1: 


OPN. 2: 


>; 655: 
645: 


1$: 


25: 


OP NPRM: 


15: 


25: 
35: 


4§: 


OPN. 2 

OPN. CT 
#STN-1,0PN. CT 
OPN. 2 

GTTST1 

OPN. CT. RS 

RS 


OPN. CT. R3 
#17,R3 
R3 


R3 


R3 ; SHI 
o aos , OPNFLG(R3) 


, 655 

64S 

7 TEST 7 
OPN. CT, -(SP) 
2 

0 


, SCRLF 
PRMPTCRS). RO 


1$ 

(RO)+, (R2Z2)+ 
1$ 

@aPRM, (SP) 
a 

(SP) 


3$ 

OP NPRM 

(R4)+ 

1$ 

PRMLMT CRY) 

OP NPAT 

- MSG. SP 
PRMMSG(R4Y), 4S 


-MSG. EQ 

RPT(R4Y),-(SP) 

PC, @#$S82D 

PC, @#SSUPRS 
ASH 


’ 


(SP)+,R1 


J ii 
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+SKIP THE INCREMENT 


BI 

THe NEXT TEST 
RESTORE RO - RS 
+ YES--GO ASK FOR MORE TESTS 
+SETUP TO USE THE 
+ TEST NUMBER AS AN INDEX 
+GET_ INOEX 
+ CLEAR es are BITS 


;NO--MOVE TO NEXT TEST 
7; TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


; SAVE OPN. CT FOR TYPEOUT 

TEST NUMBER 

+; TYPE 2 DIGIT(S) 

+; SUPPRESS LEADING ZEROS 

;TYPE “CR" & “LF' 

+PICKUP PARAMETER POINTER 
+SAVE THE VARIABLE INDICATOR 

3 FIRST ADDRESS OF TABLE 


;CHECK FOR A_VARIABLE 
;GO MOVE THIS ONE 


+ DONE 
+BUMP THE POINTER 


*MOVE THIS VARIABLE INTO THE 
+ COMMON AREA 

+GET THE VARIABLE INDICATOR 
+ZERO THE INDEX 

+ CHECK FOR A VARIABLE 

GO GET IT 

+ OUT OF VARIABLES 

+ UPDATE THE INDEX 


+ 1S THE MAX. MAGNITUDE NEG? 

+ YES--THEN IT IS THE PATTERN 

+ TYPE SPACES 

+ TYPE THE NAME OF THIS VARIABLE 


. ; TYPE "s . 
:PUT RPT(R4) ON THE STACK 
i CHANGE RPT(R4) TO DECIMAL ASCIZ 
; TYPE WITHOUT LEADING. ZEROS 


READ AN ASCIZ STRING 





SEQ 0139 





7516 


aa 
-Oweon 


BREE 


PRERRR RSLS TITRE TER eE Rene eR ee AS 


Pil 
033114 
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004037 
033222 
033332 


033770 


033562 
000056 


033600 


001606 
O34044 


033770 


000056 


034230 
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5S: 


6$: 


645: 


7$: 
85: 


95: 


OP NPAT: 


1$: 


25: 
35: 


JSR 
3 


RO. @ACK. CHR 


3$ 
OPN. X2 
Ri 


PRALMT (RY), RZ 
RO, d&CK. DIG 


RZ, RPTCRY) 

2$ 

- MSG. SP 

MSG. PAT 
MSG. EQ 
RPT(R4),-(SP) 
- MSG. SP+1 


(SP )+,R1 
RO, @#CK. CHR 


RO. @#CK. NUM 


K if 
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i CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 
; CARRIAGE RETURN 


, 
-_o 
7. 


DIGIT 0-9 
/NO--STAY ON THIS VARIABLE 


; YES--MOVE TO NEXT VARIABLE 
4 THERE A "CR" AFTER THE PERIOD? 


+ YES--GO CLOSE THIS TEST 

DOUBLE PERIOD? 

+NO--GO ASK FOR THIS VARIABLE 

; TER THE ey PERIOD? 


; ALL TE 
+BACK THE POINTER UP BY ONE 


UPPER LIMIT OF INPUT 
+CHECK THE DIGIT(S) 


TERMINATED WIT "eo OR "CR" 
+ TERMINATED of 


+ TERMINATED Wi 


+; SAVE RPTC(RY) FOR TYPEOUT 
++GO TYPE--OCTAL ASCIICALL DIGITS) 
+ TYPE ONE SPACE 


+ CARRIAGE RETURN 


DIGIT 0-9 
"CR" AFTER THE PERIOD? 
+YES--GO CLOSE THIS TEST 
+ NO--PER1IOD? 


;NO--LOOP 
+"CR" AFTER A DOUBLE PERIOD? 
dh anh START TESTING 


LOOP 
: BACKUP THE ASCII POINTER 
CHECK THE NUMBER 


+ 1LLEGAL_ INPUT 
+ TERMINATED WITH A". OR "CR" 





SEQ 0140 


L ii 
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OPN. Ni + TERMINATED WITHA”. ” 
OPN. X1 ; TER , 
001506 : nov +¥ RPTCRY) 


ROR ; 
BCC OPNPRM NO--START AT BEGINNING OF PARAMETER TABLE 
SAVREG : SAVE _ > 
: CLR RO ; START WITH WORD 0 
MoV #PATO. RY 


TYPE +; TYPE ASCIZ STRING 
BR 6 
. ASCIZ 


++GET OVER THE ASCIZ 





023222 
023452 
04 3050 


033770 


034230 


033534 


933534 


RO, -(SP) 
PC, o#$SB20 
PC, d#SSUPRS 
-MSG. EQ 
(R4),-(SP) 


(SP )+,R1 
RO, @#CK. CHR 


RO, a&CK. NUM 


RZ, (R4) 


PC, @@CLSWOS 
OPN. N2 

RZ. (R4)+ 
PC, d#CLSWOS 


OPN. X2 


;PUT RO ON THE STACK 
+ CHANGE RO TO DECIMAL ASCIZ 
saver WITHOUT LEADING ZEROS 


++ SAVE (RY) FOR TYPEOUT 

+2GO TYPE--OCTAL ASCII(ALL DIGITS) 
+RERD ASCIZ STRING 

+PICKUP THE POINTER 

+ CHECK ONE CHARACTER 

; ILLEGAL CHARACTER 

=— RETURN 


;DIGIT 0-9 
+BACKUP THE ASCII POINTER 


+ CHECK THE NUMBER 

+ ILLEGAL INPUT 

+ TERMINATED WITH A "." OR “CR” 
; TERMINATED WITH A”. “ 

; TERMINATED WITH A ".. 

;SAVE THE INPUT 


+ YES--BRANCH 
"CR" AFTER THE PERIOD? 
+ YES--GO R100? THIS TEST 


ILLEGAL INPUT STRING 
TER THE “PERIOD-PERIOD"? 
; YES-~GO START TESTING 


;NO- 

; SAVE THE INPUT 

+CLOSE THE DATA PATTERN 
RESTORE RO - RS 

;MOVE TO ee TEST 

+ SAVE THE INPUT 

+CLOSE THE DATA PATTERN 
RESTORE RO- R 

+ START TESTING 








a 
ss 


Seeeaeencegs 


WMEwWN—O 


gzezezeez? 


FREEREESRCELERESE 


N“N 


sbee 


Pil 


012701 
005200 


003104 
000017 


002000 


000060 
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3 PROGRAM SUBROUTINES 32% 


CLOSE: 


15: 


25: 


3s: 


C 
+ THIS ROUTINE IS USED TO 
7 hy CHARACTER 1S A DIG 


’ 


, 
’ 
; 
’ 
‘ 


CK. OCT: 


MoV 
JSR 
RE TURNI 
RE TURNZ 


ee 
#15. .RO 
23 

(R1)+4, (R44 
4 

PC 

RZ, RPT CRY) 
(SP )+ 

PC, CLOSE 
OPN. 1 

+t vale 
(SP )+ 

pe. CLese 
(R5)+ 

Rs, HiorZ 


GT. PR2 
BITS(RS),R3 
1$ 

2s 

#PRM. RO 
PRMPT(RS).R1 
(RO)+,R2Z 
(R1)4,R3 
#1.R4 

R4,R2Z 

2$ 

R4,RS 

(RO), (R1) 
R4Y,RI 

3$ 

(R1)+ 

(RO)+ 

RY 
os 


#ADR, R1 
RO. @#CK. OCT 


+ 1, #'O 
(R1),8'7 
1$ 
(R1),R2 


CHECK 
IT 


Ail 
27-JUL-78 09:24 PAGE 146 


+FIRST ADDRESS OF DATA PATTERN 
+; COUNT THE LAST WORD THAT WAS STORED 


END OF TABLE 

+ YES--EXIT 

He] 

+ RETURN 

+ SAVE THIS VARIABLE 
; CLEAN OFF THE STACK 
Cl THIS TEST 

7GO OPEN THE NEXT TEST 
;SAVE THIS VARIABLE 
7 CLEAN OFF THE STACK 
sCLOSE THIS TEST 

é T INDEX 


+ YES--GO CLOSE IT 
4 ye TO NEXT TEST 


+"“FROM" INDICATOR 
"TO" INDICATOR 

+ TEST BIT START A “RPT” 
+PARAMETER TO BE MOVED? 
+ NO--BRANCH 

A PLACE TO PUT IT? 


~ H 
+ YES--MOVE “FROM” TO "TO" 
"TO" PARAMETER? 
+ NO--BRANCH 
; YES--UPDATE THE POINTER 
UPDATE FROM POINTER 
+POSITION THE TEST BIT 


; 


; NO--BRANCH 
;RESTORE RO - RS 
; RETURN 


IF AN 
BETWEEN 0 AND 7. 


ADDRESS OF ASCII! CHARACTER 
+ CHECK THE CHARACTER 

+ CHARACTER IS NOT BETWEEN 0-7 
+ CHARACTER IS IN R2 AS A 
OCTAL DIGIT 


‘LESS THAN ZERO? 

E BRANCH 
; GREATER oor SEVEN? 
+GET THE CHARACTER 


iT 
1S THIS TEST “" FOR CHANGE? 


SEQ 0142 


an 


Nii 
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Pil 


042702 177770 
005720 


121127 
1 7 
121127 
101004 


033742 


3 PROGRAM SUBROUTINES 32% 


BIC @ €7,R2 sSTRIP AWAY THE ASCII 
TST (RO)+ + ADJUST FOR RETURN 
1$: RTS RO ; RETURN 


+ THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 


; Nee hesupeen iF IT 1S A DIGIT BETWEEN O AND 9. 
; nov BADR, R1 + ADDRESS OF ASCII CHARACTER 
; JSR RO. @&CK. DEC + CHECK THE CHARACTER 
; RE TURNI +NOT BETWEEN 0 AND 9 
; RE TURNZ *;BETWEEN O AND 9 
; -R2 = DIGIT 
CK. DEC: CMPB (R1).8'O +LESS THAN ZERO? 
BLO 1$ + YES -- BRANCH 
ChPB (R1),8'9 +GREATER THAN NINE? 
BHI 1$ + YES -- BRANCH 
MOVB (R1),R2 +GET THE CHARACTER 
BIC #'O,R2 +STRIP AWAY THE ASCII 
TST (RO)+ +ADJUST FOR RETURN 
158: RTS RO + RETURN 


+ THIS ROUTINE WILL CHECK Aw ASCII CHARACTER TO 
eo WHAT IT IS. 


; v SADR, R1 +ADORESS OF ASCII CHARACTER 
; JSR RO, @#CK. CHR ; CHECK CHARACTER 
; RETURN ADR1 CHARACTER 
; RETURN ADR2Z CARRIAGE RETURN % (R1)=ADR+1 
; RETURN ADRS +SLASH % (R1)=AOR+1 
; RETURN ADRY > COMMA & (R1)=ADR+1 
; RETURN ADRS +PERIOD & (R1)=ADR+1 
; RETURN ADR6 +DIGIT BETWEEN O AND 9. 
; +R2 = DIGIT & (R1)=ADR+1 
CK. CHR: TSTB (R1) ;“CARRIAGE RETURN"? 
BEQ $ + + YES -- BRANCH 
CMPB (R1),8'7 +"SLASH"? 
BEQ + YES -- BRANCH 
CMPB (R1),8'. ; "COMMA"? 
BEQ 2$ 7 YES -- BRANCH 
CMPB (R1),8'. +"“PERIOD"? 
BEQ . 18 ;YES -- BRANCH 
JSR. RO. @#CK. DEC :*DIGIT™? 
BR 5$ BRANCH 
TST (RO)+ :DIGIT BETWEEN 0-9 
1$: TST (RO)+ + PERIOD 
2$: TST (RO)+ iC 
3$: TST (RO)+ + SLASH 
4$: TST (RO)+ + CARRIAGE RETURN 
INC R1 ;MOVE POINTER TO NEXT CHARACTER 
55: MoV (RO).RO + UNKNOWN CHARA CTER 
RTS RO +RETUR 
+ THIS ROUTINE CHECKS AN ASCII STRING FOR L co. 
+ CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 


* 


SEQ 0143 
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033770 


034104 006303 


033776 


033770 


PEEtEEEEE EEE EEE EEE EEE reer 
PRIFSTRSE IRS SRSESRSERBRB SENSE 


177776 000054 


PERE EY 
=ee8 


04/5/6 MECHANICAL AND omndemnie My 


i CALL 


re ee ee ee 


1$: 


9S: 


2$: 
3$: 


4§: 


55: 
6$: 


MACY11 30A( 1052) 
33% PROGRAM SUBROUTINES 222 


8 12 
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BADR. Ri ADDRESS OF ASCIZ STRING 

@NUM. P2 MAX MAGNITUDE OF INPUT NUMBER 

RO. a8CK. DIG : CHECK DIGITS 

AOR 1 LLEGAL CHARACTER -- R2=? 

AORZ ; INPUT NUMBER TO LARGE -- R2=? 

RORI ;“COMMA™ -- RZ = NUMBER 

RORY + “PERIOD” -- RZ = NUMBER 

AORS ;"PERIOD-PERIOD" -- R2 = NUMBER 
; R3 

R2.-(S + SAVE THE MAX. SIZE ON THE STACK 

R2 +; START WITH O 


+ CHECK ONE CHARACTER 
+ ILLEGAL CHARACTER 
+ CARRIAGE RETURN 


f 
RO, @ACK. CHR 


-DIGIT 0-9 
R3 ; 
R3,-(SP) +SAVE %2 
R3 74 
R3 78 
(SP )+,R3 ; (88)4(22)=210. 


+ UPDATE THE INPUT NUMBER 
+ CHECK ONE CHARACTER 
+ ILLEGAL CHARACTER 

+ CARRIAGE RETURN 


R2,R3 
RO, @#CK. CHR 


;DIGIT 0-9 
R1 +BACKUP THE CHARACTER POINTER 
3$ + CONT INE 
(R4)+ + "PERIOD" 
CRY) oe . “7 ow 


+ ILLEGAL CHARACTER 
— RETURN 


;DIGIT 0-9 
(R4)+ :"PER 100-PER100" 
(R1) “CR' 
$ : YES-- BRANCH 
~2(R1),8' _ on BEFORE THE DIGIT A COMMA? 
R3. (SP) ; INPUT TO LARGE? 
+ YES -- BRANCH 
R4,RO ADJUST RETURN ADDRESS 


An 
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77% 034212 005720 7$: TST (RO)+ 

7797 4034214 010302 85: nov R3,R2 ;NUMBER TO R2 

7798 034216 005726 TST (SP )+ + CLEAN MAX. SIZE OFF OF STACK 
7799 034220 012603 MOV (SP)+,R3 + RESTORE Hy 

7800 034222 012604 nov (SP )4,R4 RESTORE R 

7801 034224 011000 nov (RO), RO +GET RETURN ADORE SS 

— 034226 000200 RTS RO + RETURN 

7804 + THIS oo an CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
con AND FORMS AN OCTAL NUMBER IN RZ 

7807 ; BADR, R1 ADDRESS OF ASCIZ STRING 
7808 ; JSR RO. aC K. NUM +GO FORM THE NUMBER 

7809 ; RETURN ADR1 ; ILLEGAL CHARACTER IN THE INPUT STRING 
7810 ; RETURN ADR2Z + “COMMA” OR “CR"--RZ=NUMBER 
7811 ; RETURN ADR + “PER 10D"--R2=NUMNBER 

444 | ; RETURN ADRY ;“PERIOO-PER10D"--RZ=NUMBER 
7814 034230 010346 CK. NUM: MOV R3,-" P) + SAVE RI 

7815 034232 005003 CLR R3 +START NUMBER AT ZERO 

7816 004037 033714 JSR RO. @#CK. OCT ;OCTAL DIGIT? 

7817 O34240 000440 BR 6$ + NO--BRANCH 

7818 034242 005201 1$: INC R1 ;MOVE TO NEXT CHARACTER 
7819 O34244 006303 ASL R3 FOR THE OCTAL NUMBER IN R3 
7820 O34246 103435 BCS 6$ ;DON'T LET IT GET TO BIG 
7821 034250 006303 ASL R3 

7822 034252 103433 BCS 6$ 

7823 034264 006303 ASL R3 

7824 034256 103431 BCS 

7825 034260 3 R2.R3 

7826 034262 004037 033714 JSR RO. @#CK. OCT + 1S THIS AN OCTAL tt 
7827 034266 000401 BR 2$ +NO--F INO OUT WHAT IT IS 
7828 034270 000764 BR 1$ + YES--MAKE IT PART OF THE NUMBER 
7829 034272 010302 2$: Mov R3,RZ + SAVE THE OCTAL NUMBER 
7830 034274 005003 CLR R3 + START WITH ZERO INDEX 

7831 034276 004037 033770 JSR RO. @#CK. CHR + CHECK ONE CHARACTER 

7832 O34302 O34342 6$ + ILLEGAL CHARACTER 

7833 O34ION 034332 5$ + CARRIAGE RETURN 

7834 O34IOG 034342 6$ ia 

7835 034310 034332 55 i=." 

7836 034312 034316 3$ anes 

7837 O3431% 034342 6$ ‘DIGIT 0-9 

7838 034316 005723 35: TST (R3)+ :"PE 

7839 034320 121127 000056 CMPB (R1), 8". +"PERIOD-PERIOD"? 

7840 034324 001002 BNE 5$ + NO--BRANCH 

7841 034326 INC Ri ‘tiie ok peat THE POINTER 
782 034330 0056723 4$: TST (R3)+ ; "PERI OD-P ERIOD" 

7843 034332 005723 55: TST (R3)+ + “COMMA” 

7004 ONT 105711 TSTB (R1) "CR"? 

7845 034336 001001 BNE 6$ + NO--BRANCH 

7846 O34340 060300 ADD R3.RO ‘eros THE OCTAL NUMBER 
7847 O34N2 012603 6$: MOV (SP)+,R3 sRESTORE R3 

7848 O34344 011000 MOV (RO). RO 44h EXIT ADDRESS 

7849 O34346 000200 RTS RO + RETURN 
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PROGRAM SUBROUTINES 323 
+; SERATAAAATAL ALAA TATA LALA AAAA TATA LAAT LAAT A SAA ST ALTA TAT TIT T ss 


.SBTTL SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


+COPYRIGHT (C) 1976 
4 Ai adL' EQUIPMENT CORP. 


+ MAYNARD, 
AUTHOR(S): JIM LACEY/CHUCK HESS 
+; SESAATALAAAAATAA TATA AT ALA LALA AAA ALATA AAA SATA AAA AAT ase 
+ STORAGE ace RPOS1. RPERI. RPERZ. AND RPER3 ON AN ERROR “2” 
RPERRS RPOS! 
: RPERRS42 RPERI 
+RPERRS+4 = RPERZ 
+ RPERRS+6 = RPERS 


RPERRS: . WORD 0, 0, 0, 0 


+ TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
+DRVACT=0 IF DRIVE IS IDLE 
;DRVACTO IF ORIVE 1S ACTIVE WITH A COMMAND 
+DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE O +DRIVE O 
.BYTE 0 +ORIVE 1 
BYTE O DRIVE 2 
BYTE 0 +ORIVE 3 
.BYTE 0 +ORIVE 4 
.BYTE 0 DRIVE 5 
.BYTE O DRIVE 6 
BYTE 0 sDRIVE 7 


+ TABLE OF DRIVE STATUS INDICATORS (ORVSTA=8 BYTES) 
SDRVSTA=O IF DRIVE 1S OFFLINE OR NONEXSITE | 
;ORVSTA>O IF ORIVE 1S ONLINE 
+ORVSTACO IF DRIVE 1S UNSAFE 


DRVSTA: .BYTE 0 sORIVE O 
.BYTE 90 DRIVE 1 
BYTE 0 sDRIVE 2 
BYTE 0 DRIVE 3 
BYTE 0 ORIVE 4 
BYTE 0 DRIVE 5 
BYTE QO +ORIVE 6 
BYTE 0 +DRIVE 7 


+; TABLE OF DRIVE TYPES (ORVTYP=8 BYTES) 
;ORVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0. ALSO) 
ORVTYP=1 IF DRIVE IS RPOY 
ORVTYP=2 IF DRIVE IS RPOS 
sORVTYP=4 IF DRIVE IS RPO6 
;DRVTYP=-1 IF NOT RPO4/5/6 


SEQ 0146 


E i2 
CZR JAC 75/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 151 
CZ2R JAC. P11 27-JUL-78 O09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0147 
034400 000 ORVTYP: .BYTE O DRIVE O 
7907 034401 000 .BYTE O sORIVE 1 
034402 000 .BYTE O sORIVE 2 
034403 000 .BYTE 90 DRIVE 3 
7910 034404 000 BYTE 9 sORIVE 4 
7911 034405 000 .BYTE O sORIVE 5 
7912 =O344 000 BYTE 9 DRIVE 6 
sete 034407 000 BYTE 0 sORIVE 7 
7915 + TABLE OF DUAL PORT INITIALIZATION INDICATORS 
7916 +DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
eat +DPINT<O IF INITIALIZATION IS IN PROGRESS 
7919 034410 000 DPINT: .BYTE QO sDRIVE O 
034411 000 .BYTE QO DRIVE 1 
7921 034412 000 .BYTE 0 DRIVE 2 
7922 034413 000 .BYTE QO ORIVE 3 
7923 034414 000 BYTE 0 ORIVE 4 
7924 «034415 000 .BYTE 0 DRIVE 5 
7925 034416 000 .BYTE QO DRIVE 6 
seer 034417 000 .BYTE 90 +ORIVE 7 
7928 + TABLE OF PENDING DUAL PORT REQUESTS 
+DPRQS=0 IF THAT A DUAL PORT REQUEST |S NOT PENDING FOR THAT DRIVE 
a +DPRQS<O IF THAT A DUAL PORT REQUEST |S PENDING FOR THAT DRIVE 
7932 034420 000 OPRQS: .BYTE O /DRIVE 9 
7933 034421 000 .BYTE QO DRIVE 1 
034422 000 .BYTE QO DRIVE 2 
7935 034423 000 .BYTE QO ORIVE 3 
7936 034424 000 BYTE 0 DRIVE 4 
7937 034425 000 BYTE 90 DRIVE 5 
7938 034426 000 BYTE 90 DRIVE 6 
aso 034427 006 BYTE 0 +DRIVE 7 
7941 + TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
7942 + THIS 1S A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
a ae. "DPB" OF THE 170 OPERATION. 
coe 034430 000000 TRNSHT: .WORD 0 
7947 , SEARCH WAIT ax (SRCHWT=1 WORD) 
7948 + THIS 1S A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
7949 + THE ORIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 170 
7950 +REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
a4! +EACH DRIVE IS ASSIGNED ONE BIT. STARTING AT BITOO FOR DRIVE O. 
7953 034432 000000 SRCHWT: .WORD 0 
7955 +RPO4/5/6 DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 
7956 sACTORV=O0 IF DRIVER IS INACTIVE 
7957 ;ACTORVDO IF DRIVER 1S ACTIVE 
7959 = O34434 000 ACTORV: .BYTE O 
7961 +SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 


SESE LL EELELECPeP Pease terre tees hen 
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NGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0148 


ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
+ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE O 


;UNLOAD FLAG (ULDFLG=8 BYTES) 
+ULOFLG=0 IF NO UNLOAD COMMAND 
+ULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
+ULOFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 


ULOFLG: .BYTE O ;ORIVE O 
.BYTE O sORIVE 1 

.BYTE O ;ORIVE 2 

BYTE O ;ORIVE 3 

.BYTE O ;DRIVE 4 

.BYTE O ;ORIVE 5 

0 sORIVE 6 

0 ;ORIVE 7 


+LOOK AHEAD COUNT (LACNT=8 BYTES) 
+LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


LACNT: .BYTE O sDRIVE O 
.BYTE 0 DRIVE 1 
.BYTE QO sDRIVE 2 
.BYTE 0 DRIVE 3 
BYTE 0 DRIVE 4 
.BYTE 0 DRIVE 5 
.BYTE 0 DRIVE 6 
BYTE O DRIVE 7 


+SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
+SAVEFG <O IF SAVE THE "RHI 1/RPO4/5/6 oo WHEN THE 
OPERATION 1S COMPLETED AS PER (DPB+i1 
+SAVEFG=0 IF SAVE THE RH11/RPO4/5/6 REGISTERS, AS PER 
+ (DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


SEEK FLAG (SEEKFG=1 WORD) 
+SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
+FOR A DATA TRANSFER START A SEARCH COMMAN 
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
+DISREGARD THE WINDOW 


SEEKFG: .WORD OQ 


+ TIMEOUT TABLE (TIMER=8 WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD -1 sORIVE O 
.WORD -1 ORIVE 1 
WORD -1 DRIVE 2 
WORD -1 sORIVE 3 
WORD -1 ;ORIVE 4 
WORD -1 /ORIVE 5 
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Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0149 
O34476 177777 -WORD -1 DRIVE 6 
034500 177777 -WORD -1 DRIVE 7 
+DATA TRANSFER UNDERWAY INDICATOR (OTUW=1 _ 
+DTUW<O IF NO DATA TRANSFER 
: DTUMSN (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
034502 177777 OTUW; .WORD -1 
; ATTENTION ots TABLE (ATABIT=8 BYTES) 
+ THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
ZATTENTION BIT 
034504 001 ATABIT: .BYTE 1 DRIVE O | 
034505 002 .BYTE 2 DRIVE 1 
034506 004 BYTE 4 DRIVE 2 
034507 010 BYTE 0 sORIVE 3 
034510 020 BYTE 20 DRIVE 4 
034511 040 BYTE 40 DRIVE 5 
034512 100 BYTE 100 DRIVE 6 
034513 200 BYTE DRIVE 7 
+RPO4/5/6 TO RH11 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
+CALLING IT FATAL (MCPEMK=1 WORD) 
034514 000003 MCPEMX: .WORD 3 
+STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4/5/6), 
+RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 
034516 176700 RPADR: .WORD 176700 
034520 000254 000240 RPVEC: .WORD 254,5%32 
. + MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
034524 000004 MXLACT: . WORD 
;MAXIMUM DELTA DELAY 1S 8 SECTORS (MXDLTA=1 WORD) 
034526 001000 MXDLTA: .WORD 8. %64. 
;MINIMUM DELTA DELAY 1S 2 SECTORS (MNDLTA=1 WORD) 
034530 000200 MNOLTA: .WORD 2%64. 
;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
034532 000005 MXWNDW: .WORD 5 
DEFINITIONS OF THE RH11/7RPO4/5/6 ADDRESS INDEXES 
0000 RPCS1=0 +CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
000002 RPWC=2 +WORD COUNT REGISTER (NOT A DRIVE REG) 
0004 RPBA=4 + UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
RPDA=6 DESIRED SECTOR/TR ESS REGISTER (ORIVE REG. 05) 
000010 RPCS2=10 CONTROL AND STATUS As St Uh #2 (NOT A DRIVE REG) 
000012 RPOS1=12 /DRIVE STATUS REGISTER (ORIVE REG 01) 
000014 RPERI=14 ERROR REGISTER #1 (ORIVE REG 02) 
000016 RPAS=16 ;ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
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09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SE@ 0150 
RPLA=20 +LOOK AHEAD REGISTER (DRIVE REG 07) 
RPOB=22 DATA BUFFER REGISTER (NOT A DRIVE REG 
RPMR=24 ;MAINTAINABILITY REGISTER (ORIVE REG 03) 
RPOT=26 sDRIVE TYPE REGISTER (ORIVE REG 06) 
RPSN=30 +SERIAL NUMBER REGISTER (DRIVE REG. 10) 
RPOF=32 ; T REGISTER (ORIVE REG 11) 
RPCA=34 +DESIRED CYLINDER ADORESS REGISTER (DRIVE REG. 12) 
RPCC=36 + CURRENT CYLINDER ADDRESS REGISTER (DRIVE REG. 13) 
RPERZ=40 SERROR REGISTER #2 (DRIVE REG. 14) 
RPER3Z=42 ERROR REGISTER #3 (DRIVE REG. 15) 
RPEC1=44 ECC POSITION REGISTER (ORIVE REG 16) 
RPEC2=46 ECC PATTERN REGISTER (ORIVE REG 17) 
+RH117RPO4/5/6 DRIVER INITIALIZATION CODE 
+ THIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
TO THE PROPER STATE FOR EACH DRIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 
CALL 
; JSR PC, RPINIT 
i RE TURN 
+NOTE: THE *P' OR ‘L' CLOCK MUST BE STARTED 
RPINIT: SAVREG +SAVE RO - RS 
177776 MOV @aPS, - (SP) +SAVE THE PRESENT PROCESSOR STATUS 
000240 177776 MOV #<5232.>,@8PS ;CHANGE THE PRIORITY TO 5 
042520 JSR PC, CLRQUE +CLEAR ALL REQUEST QUEUES 
034350 MoV @RPERRS.R1 +FIRST ADDRESS TO BE CLEARED 
034460 MoV #SEEKFG.R2 +LAST ADORESS TO BE CLEARED 
1$: CLR (R1)+ + CLEAR 
CMP R1,R2 +ARE WE DONE? 
BLOS 1$ BRANCH IF NO 
034502 MoV #OTUW, RZ +LAST ADDRESS 
177777 2$: MoV #-1,(R1)+ + INITIALIZE 
CMP R1,R2 + DONE? 
BLOS 2$ +LOOP IF NO 
034370 CLR DRVSTA +SET ALL DRIVES TO OFFLINE 
034372 CLR DRVSTA+2 
034374 CLR DRVSTA+4 
034376 CLR DRVSTA+6 
034520 MoV RPVEC. R3 +SETUP THE RH11/RPO4/5/6 VECTOR 
037400 MOV #1SR, (R3)+ 
034522 MoV Hg (R3) 
034516 MoV RPADR, R +FIRST ADDRESS OF RH11/RPO4 
0 000010 MoV #81 706, RECS2(R4) +MASSBUS INIT 
CLR R1 +START WITH DRIVE O 
034746 35: JSR RO. ORV INT INIT THE DRIVE 
BR 4§ 5 Dua" NOT SET OR PARITY ERROR 
BR 5$ NORMAL RETURN 
034370 4$: CLRB DRVSTACR1) 7 SET ORIVE set TO OFFLINE 
5S: INC R1 +GO TO NEXT DRIVE 
177770 BIC # C7,R1 +MASK OUT UNUSED BITS 
BNE 3$ *BR IF MORE DRIVES TO GO 
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E/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


nov #7,R1 +START WITH DRIVE 7 
CLR oaPs + CLEAR THE PROCESSOR STATUS 
6$: TSTB DP INTC(R1) ;WAITING FOR DRIVE TO SWITCH PORTS 7? 
BEQ 8s BR NOT WAITING 
JSR PC. SET. IE +SET INTERRUPT 
7$: TSTB DP INT(R1) DRIVE SWITCHED PORTS ? 
BNE 7$ -BR IF NOT 
8S: DEC Ri +60 10 THE chat DR I VE 
BPL 6$ + CHECK NEXT DRIVE 
Mov (SP )+, aaPS RESTORE THE PROCESSOR STATUS 
RESREG +RESTORE RO - RS 
RTS PC + BYE-BYE 


DRIVE INITILIZATION ROUTINE 
+e 1S ROUTINE DETERMINES IF A DRIVE EXIST AND IF | 
AN RPO4/5/6. IF IT 1S. A “READ-IN PRESET” IS ISSU 
1S SET TOA nye THEN MOL. DPR. DRY. AND VV ARE CHECKED TO 
E THEY ARE ALL ON A “1”. AND DEPENDING ON THEIR STATE. 
SORVSTA 1S SET TO THE PROPER CONDITION. 


m—- 
o 
77 
7 
=a 
= 
ie 
S&S 


* CALL 


; MoV #ORVNUM. R1 +ORIVE NUMBER TO R1 
; MoV RPADR. RY *UNIBUS ADDRESS OF RH11/RPO4/576 (RPCS1) 
; JSR RO, ORVINT *CALLED BY A JSR 
; RE TURNI ERROR OCCURRED (PARITY) 
; RE TURN2 +NORMAL RETURN 
DRVINT: MOV RS. -(SP) + SAVE RS 
CLRB DRVSTACR1) +START DRIVE STATUS AS OFFLINE 
CLRB ORVTYP(R1) +CLEAR THE DRIVE TYPE INDICATOR 
CLRB ULOFLG(R1) + CLEAR THE UNLOAD FLAG 
MoV R1,RPCS2(R4) + SELECT A DRIVE 
MOVB #111, RPCS1(R4Y) ; DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
BIT #B1T12,RPCS2Z(R4) ; NONEXISTENT DRIVE? 
SEQ i. NO---BRANCH 
JSR PC, SET. IE : 60 SET "IE" WITHOUT A “TRE” 
BR 6$ LEAVE THIS ROUTINE 
15: CLRB DRVSTACRI1) ‘SET DRIVE STATUS TO OFFLINE 
BIT @BITI1,RPCSICR4) [SEE IF DRIVE AVAILABLE 
BEQ 7$ BR IF DRIVE NOT AVAILABLE 
ieee RO, RD. RP READ THE DRIVE TYPE REG 
8$ ERROR RETURN ADDRESS 
MoV (SP )+,R5 +PUT DRIVE TYPE IN RS 
MOvB #1,DRVTYP(R1) ;SET RPO INDICATOR 
CMP #20020. R5 1S 1T A SINGLE PORT RPO4? 
BEQ 2$ BRANCH IF YES 
CMP #24020. RS +1S 1T A DUAL PORT RPO4? 
BEQ 2$ BR IF YES 
MOVB #2.ORVTYP(R1) ;SET RPOS ge 
CMP #20021, R5 +SINGLE PORT RPOS ? 
BEQ 2$ BR IF YES 
CMP #24021. R5 +DUAL PORT RPOS ? 
BEQ 2$ BR _IF YES 
MOVB #4, DRVTYP(R1)  ;SET RPO& INDICATOR 
CMP #20022, R5 +SINGLE PORT RPO6 ? 


SEQ 0151 
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SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


2$: 


4§- 


65: 
7$: 


7R 
: 
A 
sC 


. 
, 
, 
’ 
‘ 


BEQ 2$ -BR IF YES 
CMP #24022. RS 4? o> PORT RPO6 ? 
BEQ 7BR_IF YES 
a lattice SET INDICATOR TO ‘OTHER' 
MOV #121,-(S) ‘DO ‘A “READ-IN PRESET” 
JSR RO. WRT. RP 
Ne 
MoV #B81T12,-(SP) SET FMT22=1 
JSR RO. WRT. RP 
RPOF 
8$ 
JSR RO. RD. RP READ RPDS1 
— 
MoV (SP )+,R5 ;AND SAVE IT IN RS 
BPL 4§ +BRANCH IF ATA=0 
MOVB ATABIT(R1), RPAS(RY) ; CLEAR ATTENTION BIT 
SR RO. RD. RP +F IND OUT WHY ATA=1 
Apa 
ROL (SP )+ 71S 1T UNSAFE? 
BPL 4§ +BR_IF NOT 
MOVB #-1,ORVSTA(R1) ;SET UNSAFE INDICATOR 
BR 6$ + EXIT 
con RS +CHECK MOL. DPR. DRY. AND VV 
BIC siaiiniitethenda te Aas A, 5 
BNE 6$ BRANCH IF MOL. DPR. DRY. OR VV IS CLEAR 
MOVB #1,DRVSTACR1) SET ORIVE STATUS TO ONLINE 
TST (RO)+ +STEP OVER THE ERROR RETURN 
BR 8$ EXIT 
ASL R1 + CHANGE INDEX TO ADDRESS WORDS 
MOV #2000... TIMER(R1) ;START 2 SEC TIMER 
ASR R1 RESTORE R1 
COMB \ fore taaae 
TST (RO)+ 
MoV (SP)+,R5 RESTORE RS 
RTS RC sEXIT 

EQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 

ALL 
JSR RO, d#RPOX +CALL THE RPO4Y/5/6 DRIVER 
PNTAOR ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RE TURN1 +RETURN HERE IF QUEUE 1S FULL 
RE TURNZ2 RETURN HERE IF REQUEST IS IN QUEUE OR THERE 

+ 1S AN ERROR CONDITION 

oe aaPs, -(SP) + SAVE THE CALLING STATUS 


RPVEC+2, a#PS DON'T ALLOW ANY RPO4/5/6 INTERRUPTS 
#1, ACTORV AG 


MOVB 7 SET “ACTIVE DRIVER” FL 

SAVREG +SAVE RO - RS 

MoV (RO),R2 +PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLR 16(R2) CLEAR THE STATUS/ERROR INDICATOR 


SEQ 0152 


K 12 
CZRJAC RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 157 


CZR JAC. P11 27-JUL-78 69: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0153 

O35334 111201 nove (R2),R1 ;PICKUP THE ORIVE NUMBER 

8243 336 013704 034516 Mov RPADR. RY 7 UNIBUS ADDRESS OF RPCS1 

8244 O35342 105761 034370 TSTB ORVSTA(RI) ;CHECK DRIVES STATUS 

8245 O353%6 003014 BGT 1 7 BRANCH IF ONLINE 

8246 035350 105761 034436 TSTB ULOFLG(R1) ; UNLOAD COMMAND IN QUEUE? 

8247 035354 001036 BNE 3$ ;BRANCH IF YES 

8248 O35356 105761 034410 TSTB8 DP INT(R1) 7 TRYING TO INIT THE DRIVE 

8249 635362 001042 BNE BR IF 

8250 G3536e4% OOsS0?7 034746 JSR RO, ORV INT 60 INIT. THE DPIVE 

8251 035370 34 8R 4s ; ERROR RETURN 

8252 035372 105761 034370 TST8 DRVSTACRI) 71S ORIVE STATUS ONLINE? 

8253 035376 003445 BLE 65 ;BR IF NOT 

22754 035400 105761 034420 1$: TSTB DPRQS(R1) OUTSTANDING PORT REQUEST FOR THE DRIVE 7? 

8255 035408 001031 BNE 59 ;BR IF YES 

8256 035406 010164 000010 Mov R1,RPCS2(R4) SELECT THE OR IVE 

8257 035412 OO4037 042616 JSR RO. ORVQUE ;PUT THIS REQUEST IN QUEUE 

8258 035416 000460 GR +) 9 ;QUEUVE IS FULL 

8259 035420 122762 000103 000002 CMPB #103, 2(R2) ,1$ THis REQ FOR AN UNLOAD? 

8260 035426 001003 BNE *BR_IF NO 

8261 O35430 112761 177777 034436 MovB #-1,ULDFLG(R1) Ser. THE “UNLOAD IN QUEUE" FLAG 

8262 O35436 105761 034360 23: TSTB DRVACTC(RI1) 71S THIS DRIVE ACTIVE? 

8263 035442 001043 BNE 8$ -BR IF YES 

826% 0636444 004737 035576 JSR PC, OPT ;CALL THE OPTIMIZER 

8265 035450 000440 BR 

8266 0365952 012762 120000 OO000i16 35: MoV + ta iatanalintars 2 +SET THE "UNLOAD IN QUEUE” ERROR FLAG 

8267 O35460 000434 BR XI 

8268 036462 004737 036706 4§: JSR PC.CI7 60 HANDLE THE PARITY ERROR 

8269 035466 000431 Be RS 

8270 035470 OO4037 042616 55: JSR RO. ORVQLE 7PUT REQUEST IN QUEUE 

8271 0354748 000431 BR 94 ;QUEVE 1S FULL 

8272 036476 032714 000100 BIT #8 1TO6., (RY) 71S ‘'tE' SET ALREADY ? 

8273 036502 001023 BNE 8$ ;BR IF IT IS 

8274 O3650% 004737 042154 JSR PC, SET. IE SET INTERRUPT 

8275 035510 000420 BR ;RETURN. REQUEST IN QUEUE 

8276 036612 105761 034370 65: TSTB DRVSTACRI) ; SEE 1F DRIVE OFFLINE OR UNSAFE 

8277 036616 002412 BLT 7 R IF UNSAFE 

8278 035620 012762 140000 000016 MoV OB 1T15'BI TIN, 16082) Fae OFFLINE ERROR INDICATOR 

8279 036526 105761 034400 TSTB ORVTYP(R1) >SEE IF OFFLINE OR NONEXISTENT 

8280 036532 001007 BNE 8g 7BR IF OFFLINE 

8281 036638 012762 100002 000016 MoV #81T15'BITO1, 16(R2) 2REPORT DRIVE NONEXISTENT 

8282 036642 000403 BR 8$ 7GO TO EXIT 

8283 0366448 012762 110000 O00016 7%: MoV #B81T15'BIT12,.16(R2) -;ORIVE IS UNSAFE 

828% 036662 104413 8s: RESREG ;RESTORE RO - RS 

8285 036664 005720 TST |. (RO) ;SETUP FOR NORMAL RETURN 

8286 036556 000401 BR 10$ 7 FINISH UP. THEN EXIT 

8287 036560 104413 9$: RESREG RESTORE O- RS 

8288 036562 005720 10$: TST (RO)+ - CORRECT THE RETURN ADDRESS 

8289 036564 105037 034434 CLRB ACTORV CLEAR “ACTIVE DRIVER" FLAG 

8290 036570 012637 177776 MoV (SP )+, d&PS ;RETURN "PS" TO USER LEVEL 

8291 035574 000200 RTS RO ;RETURN TO CALLER 

8293 7 OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 

8294 3 

8295 ; CALL 

8296 ; MoV #DORVNUM, R1 >DRIVE NUMBER TO R1 

8297 ; JSR PC, OPT >SETUP A COMMAND 





PERE EEE ie aie tit 


EEE 


moo 
RRF 
Wh 


Pil 27-JUL-78 09: 
035576 104412 OPT: SAVREG 
035600 013746 177776 Mov 
O3560% 146137 034504 034432 BICB 
035612 737 042672 JSR 
035616 702 TST 
035620 001505 BEQ 
035622 032764 004000 000000 BIT 
035630 001407 BEQ 
035632 2764 000100 000012 BIT 
035640 001003 BNE 
035642 OO4037 034746 9S: JSR 
035646 0004 BR 
035650 105761 034370 105: TSTB 
03565" 003014 BGT 
035656 737 «042714 JSR 
035662 012762 140000 000016 Mov 
035670 105761 034370 TSTB 
O35674 1 BPL 
035676 012762 110000 000016 MoV 
035704 60 BR 
035706 012746 000111 18: MOV 
035712 037 041644 JSR 
035716 RPCS1 
035720 6$ 
035722 032714 004000 BIT 
035726 001427 BEQ 
035730 122762 000150 000002 CMPB 
035736 002403 BLT 
035740 004737 036272 JSR 
035744 O00440 BR 
035746 005737 034502 2s: TST 
035762 002012 BGE 
035754 005737 034460 TST 
035760 100404 BMI 
035762 004037 037242 JSR 
035766 000427 BR 
036770 000403 BR 
036772 004737 036056 3S: JSR 
035776 000423 BR 
036000 004737 036164 4$: JSR 
036008 000420 BR 
036006 112761 177777 034420 55: MOVB 
036018 010103 MOV 
036016 303 ASL 
036020 pa 2763 023420 034462 MoV 
036026 02 BR 
036030 737 036706 6$: JSR 
036034 032714 000100 7$: BIT 
036040 001 BNE 
036082 004737 042154 JSR 
036046 01 177776 8$: MoV 
036052 104413 RESREG 
036054 000207 RTS 
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18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0154 


+SAVE RO - RS 
@8PS, -(S$) ;SAVE PROC. STATUS 
ATABIT(RI). SRCHMT 


sCLEAR “SEARCH WAIT" KEY 
PC. GETREG +GET “DPB” POINTER OF REQUEST 
R2 + 1S THERE A REQUEST IN QUEUE? 


7$ +NO--BRANCH TO EXIT 
aici 21S a hae SET ? 


1 
B1TG.RPOS1(R4) ; is. VV vt ? 
os 7BR IF 


T IS 

RO, ORVINT SEE IF ‘OR Ive STILL ONLINE ? 
6$ +PRARITY OR ‘DVA' NOT SET 
DRVSTACR1) 71S ORIVE ONLINE? 
1$ + YES--BRANCH 
PC, POP QUE ;NO--REMOVE REQUEST FROM QUEUE 
@BITIS'BITI4.16(R2Z) +; SET OFFLINE 9) FATUS/ERROR IND 1 CATOR 
ORVSTA(R1) ; 4 DRIVE UNSAFE ? 
$ ;BR TO EXIT IF NOT 
SBITIS'‘BIT12,16(R2) ;SET witht STATUS/ERROR INDICATOR 
8$ + BRANCH TO EX 
#111,.-(SP) + LOAD COMMAND ONTO THE STACK 
RO, WRT. RP +LOAD THE REGISTER 

REGISTER INCREMENT 

ERROR RETURN 1 ues 
#B1T11, (R4) SORIVE AVAILABLE ? 

-BR IF NOT 
#150, 2(R2) sts THE pad FOR 1/0? 
2$ + YES--BRAN 
PC, CI4 *CALL THE COMMAND INITIATOR 
8$ BRANCH TO EXIT 
OTUW +DATA TRANSFER UNDERWAY? 
4§ + YES--GO START A SEARCH 
SEEKFG +DO_ IMPLIED SEEKS? 
3$ S---BRANCH 
RO.LA ;NO--DO LOOK AHEAD 
8$ RETURN HERE ON a PARITY ERROR 
4§ +GO START AS 
+ START A DATA TRANSFER 
PC,Ci3 + START A SEARCH 
$ +GO TO THE EXIT 


8 

#-1,DPRQS(R1) ;SET PORT REQUEST INDICATOR 

R1,R3 +SET UP TO ADDRESS WORDS 
R3 + CONVERT TO WORD INDEX 

| /TIMER(R3) Me a, 10 SEC TIMER 


PC.Ci7 : PROCESS THE PARITY ERROR 
#B1TO6. (RY) SEE IF ‘IE’ ALREADY SET 
8$ ;BR_IF SET 


PC, SET. IE 7SET "IE" WITHOUT A "TRE" 
(SP)+, aaPS SRESTORE PROC. STATUS 
a SRESTORE RO - R5 


+ COMMAND INITIATOR 
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CZRJAC RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 
CZR JAC. P11 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0155 
8354 
8355 CALL 
8356 ; Mov SORVNUM. R1 7ORIVE NUMBER 
8357 é nov #0PB,R2 ;ADORESS OF DPB 
8358 ; JSR PC,C1? 7Ci?= Cli, Cl3, OR C14 
8359 j ; WHERE: 
8360 ; >CI120ATA TRANSFER 
8361 j +CIZ=SEARCH REQUESTED BY DATA XFER 
ie] ; 7CI4=NOT DATA TRANSFER 
8364 036056 004737 042714 Ci: JSR PC, POP QUE ;REMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
036062 010237 034430 Mov R2, TRNSWT ;PUT REQ IN TRANSFER WAIT QUEUE 
010203 MoV R2.R3 70PB ADORESS TO RI 
8367 036070 013704 034516 nov RPADR, RY 7RPCS1 ADORESS 
8368 036074 010164 000010 MoV R1,RPCS2CR4) +SELECT ORIVE 
8369 036100 062703 000004 ADD #4,R3 +DESIRED WORD COUNT 
036108 062704 000002 ADD #2. R4 ; RPUC ADORESS 
8371 036110 012324 MoV (R3)+, (R4)4 j oc 
8372 036112 012324 MoV (R3)+, (R4)+ +LOAD BUFFER ADDRESS 
8373 036114 012346 Mov (R3)+, -(SP) ;LORD SECTOR AND TRACK 
8374 036116 OO4037 041644 JSR RO. WRT. RP + CALL THE LOAD(WRITE) ROUTINE 
8375 036122 000006 RPDA ; INDEX OF REGISTER TO LOAD 
8376 036124 0636706 C17 ERROR RETURN ADORESS 
8377 036126 012346 nov (R3)+,-(SP) ;LOAD CYLINDER ADDRESS 
8378 036130 004037 041644 SR RO, WRT. RP 
8379 036134 RPCA 
8380 036136 036706 C17 
8381 036140 016246 000002 MoV 2(R2), -(SP) ;LOAD “COMMAND+GO". “A178A16". AND “PSEL" 
8382 036148 004037 041644 JSR RO. WRT. RP 
8383 036150 000000 RPCS1 
838% 036152 036706 C17 
8385 036154 010137 034502 Mov R1,OTUW ;SET “DATA TRANSFER UNDERWAY” 
8386 036160 000137 036650 JMP cis 
8387 036164 013708 034516 C13: MOV RPADR, RY ;RPCS1 ADDRESS 
8388 036170 010164 000010 MoV Ri, RPCS2(R4) ; SELECT ORIVE 
8389 036178 016246 000012 Mov 12(R2),-(SP) ; DESIRED CYLINDER ADDRESS 
8390 036200 004037 041644 JSR RO. WRT. RP 
8391 0362048 OO00034 RPCA 
8392 036206 036706 Ci? 
8393 036210 116203 000010 Move 10(R2),.R3 ;PICKUP SECTOR ADDRESS 
839% 036214 163703 034532 SUB MXWNOW, R3 ;BACKUP BY MAX. SEARCH FOR 1/70 WINDOW 
8395 036220 002002 BGE 
83% 036222 062703 000026 ADD #22. .R3 
8397 036226 010346 1$: MOV R3,-(SP) ; COMBINE THE ADJUSTED SECTOR WITH 
8398 036230 116266 000011 000001 Move 11(R2), 1(SP) ; THE DESIRED TRACK 
8399 036236 ph hf 041644 JSR RO. WRT. RP ;LOAD DESIRED TRACK & SECTOR 
8400 036242 RPOA 
8401 036204 036706 C17 
8402 036246 012746 000131 Mov #131,-(SP) ; START A SEARCH 
8403 036262 004037 041644 JSR RO. WRT. RP 
860% 036266 000000 RPCS1 
$406 036260 036706 C17 
$406 036262 166137 034504 034432 81S8 ATABIT(R1), SRCHWT ;SET “SEARCH WAIT" KEY 
8407 036270 000567 BR Cis 
8408 036272 013704 034516 C14: MOV RPADR, RY ;RPCS1 ADDRESS 
8409 036276 010164 000010 MoV R1,RPCS2(R4) +SELECT DRIVE 
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Pil 27-JU-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 ORIVER (REV 1.0) SEQ 0156 
036302 116203 000002 nove 2(R2),R3 +PICKUP THE REQUESTED COMMAND 
036306 122703 000131 CnPB #131,R3 i1S 1T A SEARCH COMMAND? 

036312 001007 BNE 1$ iF 

036318 016246 000010 Mov 10(R2),-(SP) ; LORD DESIRED TRACK & SECTOR 
036320 OO4037 041644 JSR RO. WRT. RP 

036324 RPDA 

036326 036706 Ci? 

036330 000403 BR 2$ GO LOAD CYLINDER 

036332 122703 000105 1$: CNPB #105.R3 71S IT A SEEK COMMAND 

036336 001007 BNE BRANCH IF NO 

0360 016246 000012 25: MOV 12(R2),-(SP) *LOAD DESIRED CYLINDER 

036% O04037 041644 JSR RO. WRT. RP 

036350 RPCA 

036352 036706 C17 

036354 000546 BR Cl6 

036356 122703 000115 35: CMPB #115.R3 71S 1T AN “OFFSET” COMMAND? 
036362 001013 BNE 4$ 7BR IF NO 

036364 004037 041464 JSR RO. RO. RP ; MERGE ban OFFSET VALUE INTO RPOF 
036370 RP OF +BUT DON'T CHANGE THE UPPER 
036372 036706 Ci? 

036378 116216 000001 MOVB 1(R2), :% BYTE WHEN LOADING THE 

036%00 004037 041644 JSR RO. WRT. RP REGISTER (RPOF) 

03640" 000032 RP OF 

036406 036706 C17 

036410 000530 BR Cl6 +GO START THE COMMAND 

036412 122703 000107 4$: CMPB #107,.R3 its Aa, A “RECALIBRATE” COMMAND? 
036416 001525 BEQ Cl6 7 BR 1F YE 

036%20 122703 000117 CMPB #117,R3 1S IT "a RETURN TO CENTER? 
036424 001522 Q Cl6 + BRANCH 

036426 703 000103 CMPB #103.R3 1S IT a “UNLOAD" COMMAND? 
036432 001016 BNE 5$ ; BRANCH IF NO 

036434 1 000001 034360 MOVB @1,ORVACT(R1) {SET THE DRIVE ACTIVE INDICATOR 
O36"%2 1056061 034370 CLRB DRVSTA(RI1) PUT ORIVE STATUS TO OFFLINE 
O364%6 112761 000001 034436 MOVB @1,ULDFLG(R1) ;SET “UNLOAD IN PROGRESS" FLAG 
036454 010346 MOV R3.-(SP) START THE “UNLOAD” COMMAND 
036466 O04037 041644 JSR RO. WRT. RP 

036462 RPCS1 

036464 036706 Ci? 

036466 000207 RTS PC RETURN TO USER 
036470 122703 000143 5$: CMPB #143,R3 1S 1T A “SET FORMAT” COMMAND? 
O3647% 001014 BNE 6$ +BRANCH IF NO 
036476 O04037 041464 JSR RO. RD. RP + READ THE OFFSET REGISTER 
036602 000032 RP OF 
03660" 036706 Ci? 

0366506 116266 000001 000001 MOVB 1(R2). 1(SP) ;COMBINE “FMT22","ECI",. AND "HCI" 
port hl OO04037 041644 A RO. WRT. RP +LOAD "FMT22", “ECI". AND/OR “HCI". 
036522 03670¢ C1? 

036524 000436 BR 128 
036526 122703 000141 6$: CMPB #141,.R3 ‘IS ITA m1 REGISTER” COMMAND? 
036632 001023 BNE 1 . BRANCH IF NO 
036634 016203 000006 7$: / MOV 6(R2),R3 +POINTS 10 1ST ADDRESS OF WHERE 

+ TO PUT THE REGISTER(S) 
036640 116237 000010 036556 Move 10(R2). 9 + INIT. THE INDEX FOR THE FIRST REG. 
036546 116205 000011 MOVB 11(R2),R5 + INDEX OF LAST REG. TO MOVE 
036652 004037 041464 8$: JSR RO. RD. RP READ RPO4/5/76 REGISTER 
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CZR JAC. Pil 27-JU-78 09: 18 S1NGLE /DUAL 


8466 036556 
8467 036560 036706 
8468 012623 
036564 023705 
8470 036576 001414 
pada} 036572 062737 
8473 036602 122703 
8474 036606 1405 
8475 036610 010346 
8476 036612 
8477 036616 
8478 036 
8479 004737 
8480 052762 
pe sobeke 


SAREEERTER 
: 


— 
LS) 


oes tet Gece Get GD ge 
WanNENEwW 


it 


034430 
177777 
010000 


034360 


034430 
034502 


036556 


000016 


034462 
034360 


000010 


000016 


034502 


000010 


11$: 


Cl6: 


—- 


1$: 


POR 
RPCS1 


T RH11/RPO4/5/6 DRIVER (REV 1.6) 


+ INDEX OF REG. TO READ 
> i’ (R3)+ +GET_ THE CONTENTS ee RH11/RPO4/5/6 REG. 


9%, + LAST 7, BEEN 
12$ +GET OUT | 
42,98 fy wr re a BY 2 
#145,R3 +18 IT A “SELECT DRIVE" COMMAND? 
$ + BRANCH iF YES 
, WRT. RP 


PC, POP QUE +REMOVE REQ FROM QUEUE 
#B1T07,16(R2) ;SET THE “DONE” BIT 

SAVEFG SAVE THE RH11/RPO4/5/6 REGISTERS? 
13$ BRANCH IF NO 

PC, SVRH11 + YES--GO SAVE THE REGISTERS 

PC +RETURN TO USER 


Ri 

— - TIMER(R1) +SET A ONE SECOND TIMER 
#1.DRVACT(R1) ;SET THE DRIVE ACTIVE 

PC RETURN TO THE USER 


R3,-(SP) +LOAD THE COMMAND 
RO. WRT. RP 


cis 
@BIT1Z,RPCS2(R4) ; DRIVE NON-EXISTENT ? 
cigs 7BR IF YES 


R2 ; ANYTHING IN QUEUE ? 
C178 ;BR IF NOT 
@BiITiIS'BITI1. 16(R2) +SET “PARITY” ERROR INDICATOR 
PC, SVRH11 +GO SAVE THE RH11/RPO4/5/6 REGISTERS 
#1110 (SP) ;D0 A “DRIVE CLEAR” 
RO. WRT. RP 
PC, EMPTYQ s EMPTY THE QUEUE 
ULOFLG(R1) +CLEAR THE UNLOAD IN QUEUE FLAG 
DRVACT(R1) sORIVE IS IDLE 
Ri, OTUW + 1F THIS DRIVE HAD AN 170 REQUEST 
1$ + 1N PROGRESS CLEAR ALL OF THE FLAGS 
TRNSWT 
#-1,0TUW 
+SAVE RO - RS 
@BITiZ-RPCS2(R4) [IS "NED" SET ? 
1$ ;BR IF YES 
R1 
R3 
ORVACT(R1) ;DRIVE ACTIVE? 
5$ +BRANCH IF NO 
TRNSWT, RZ +GET THE “TRANSFER WAIT" QUEUE 
Ri, OTUW +DID THIS DRIVE HAVE AN 170 IN PROGRESS? 


SEQ 0157 


Sz 
Sea ee epee poceesonsenece se 


Pil 


27-JU-78 09: 


042672 


000010 
000016 
000016 
034462 
034502 


000010 


034516 


O34446 
O34446 034524 


RPO4/5/6_MECHANICAL ~ serenpeiientily * TEST MACY 


NGLE /DUAL 


65: 


7$: 


C 13 
(1052) 27-JUL-78 09:24 PAGE 162 
H11/RPO4/5/6 DRIVER (REV 1.0) 


2$ ;BRANCH IF YES 
PC, GETREQ GET THE DPB POINTER 
R2 ; QUEUE ENTRY FOR DRIVE ? 


us ; 1F NOT 
#81712. RPCS2(R4) MED: SET ? 
$ ;BR IF NOT 
BB ITIS!81TO1, 16¢R2) SEY "DRIVE NON-EXISTENT’ INDICATOR 
#B1T15'BIT10.16(R2) ;SET “NON-CLEARABLE PARITY” ERROR INDICATOR 
ate H11 ; SAVE RH11/RPO4/5/6 REGISTERS 
1, TIMER(R3) ;STOP THE TIMER 
DRVACT CRT) 7SET “DRIVE ACTIVE” TO IDLE 
ah rune F :1S THIS DRIVE SETUP FOR A TRANSFER 
#-1,0TUW ; INDICATOR 
TRNSWT ; gent QUEUE 
UL OF LG¢ FLAG 


G(R1) ;CL 
#B1T12,.RPCS2(R4) ; ‘NED’ SET 
6$ ;BR IF YES 
Ri MOVE TO THE NEXT DRIVE 
#2,R3 
# C7.R1 
1$ + BRANCH 1F MORE DRIVES 
#-1,0TUW 
TRNSWT R WAIT’ QUEUE 
PC, CLRQLE + CLEAR ALL OF THE REQUEST QUEUES 
#6 1TOS, RPCS2(R4) +DO0 A MASSBUS INIT. 

7% + CONT | NUE 

PC, EMPTYQ ; CLEAR THE DRIVE'S QUEUE 
ORVSTACR1) +SET DRIVE TO OFFLINE 
ORVTYP(R1) +CLEAR THE DRIVE TYPE INDICATOR 


PC, SET. IE +SET “1E" WITHOUT “TRE” 
RESTORE RO - RS 
PC + RETURN 


+LOOK AHEAD ROUTINE 


; CALL 


’ 
’ 
, 
; 
‘ 
‘ 


LA: 


#ORVNUM, R1 +ORIVE NUMBER 
+POINT TO OP 


T A SEARCH 
+ START A DATA TRANSFER 


RPADR, RY +GET RPCS1'S ADDRESS 
R1,.RPCS2(R4) + SELECT DRIVE 
RO. RD. RP +READ CURRENT CYLINDER 


ERROR RETURN ADDRESS 
(SP )+, 12(R2) +S fons CYL INDER=DESIRED 


IF NO 

INCR ENENT THE LOOK AHEAD COUNT 
SMXLACT ; ; EXCEED MAX? 
;BRANCH IF YES 





CZR JAC. P11 


037444 


oo od OP et ot td ot ot ot 
Whe —Oveavenflwn-o = 


037540 


116203 
000303 
006203 
006203 
012737 
004037 
037372 


000010 


000340 
041464 


002600 
034526 
034530 
O34446 


036706 


034516 
034502 


037444 
037604 
034434 


034360 
177777 
177777 


034456 


042036 
035576 


177776 


034434 


034502 
034462 


000016 
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INGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


Move 10(R2).R3 
SWAB R3 
ASR Re 
ASR R3 
Mov #340, aaPS 
JSR RO. RD. RP 
RPLA 
4% 
SUB (SP )+,R3 
BGE 18 
ADD #<22 364. >, R3 
1: CMP MXDLTA, R3 
BLT 
CMP MNDL TA, R3 
BGE 3$ 
25: CLRB LACNT(R1) 
TST (RO)+ 
35: TST (RO)+ 
BR 5$ 
4$: JSR PC.CI7 
5S: RTS RO 
+ INTERRUPT SERVICE ROUTINE 
ISR: MOVB #1, ACTDRV 
SAVREG 
MoV RPADR, RY 
MoV DTUW. R1 
BLT 1$ 
JSR PC, TD 
BR 2$ 
1$: JSR PC, SC 
2s: RESREG 
CLRB ACTORV 
RT! 
+ TRANSFER DONE ROUTINE 
CLRB DRVACT(R1) 
MoV #-1,0TUW 
ASL Ri 
MoV #-1, TIMER(R1) 
ASR R1 
MOV TRNSHT, RZ 
CLR TRNSHT 
BIS #81107, 16(R2) 
MOV R1,RPCS2(R4) 
JSR RO. RD. RP 
RPCS1 
C17 
ROL (SP )+ 
BMI 3$ 
TST SAVEFG 
BPL 1$ 
JSR PC, SVRH11 
1$: JSR PC. OPT 


+GET DESIRED a ae ADORESS AND 
BY IGN WITH 


ty hy 
LOOK AHEAD REGISTER 


PRIORITY LEVEL “7" 
+READ LOOK AHEAD REGISTER 


+CALCULATE THE DELTA 


+MAKE THE DELTA POSITIVE 
+CHECK THE DELTA TO SEE 
IF IT 1S WITHIN THE 
sWINDOW--- IF YES, ZERO 

+ THE LOOK AHEAD COUNT 
+AND TAKE THE 170 EXIT 


ATT mi THE RETURN ADDRESS 


E 
PROCESS THE ERROR 
+ RETURN 


+SET “ACTIVE DRIVER” FLAG 
+SAVE RO - RS 

+ADDRESS OF RHSCS1 

+GET “DATA TRANSFER UNDERWAY" INDICATOR 
+BRANCH IF NO DATA TRANSFER UNDERWAY 
mt TRANSFER DONE 


+ EX 
; CALL SPECIAL alata 


RESTORE RO - 
CLEAR "ACTIVE DRIVER FLAG 
+ RETURN 


+SET DRIVE ACTIVE INDICATOR TO IDLE 
+NO DATA TRANSFERS UNDERWAY 


CANCEL TIMEOUT 


;GET “DPB" ADDRESS FROM THE 

+ TRANSFER WAIT QUEUE--CLEAR QUEUE 
+ SET DONE 

+SELECT THE DRIVE 

+ TRANSFER ERROR(TRE=1)? 


;BR IF YES 
; SAVE THE RH11/RPO4/5/6 REGISTERS? 
TES SAVE THE REGISTERS 

[CALL OPTIMIZER 


‘ale! 


oie 
EREERERESSSSTESESCEEEES RR 


FREE 
eeece 


tata 
PERE 


SEEPREER 


861T15'B1T06. 16(R2) mr DATA 
PC. EMP TYO EMPTY 


RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACYI1 aol (1052) 
Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT R 
037544 17 BR Sc 
037546 012714 000113 25: nov #113. (RY) 
037552 14 BR 
037554 052762 100100 000016 3%: BIS 
037562 004737 042576 JSR 
7566 004737 2036 JSR PC, SVRH11 
037572 012714 040111 MOV #40111, (RY) 
7576 012714 11 Mov #113, (R4) 
037602 BR sc 
+ SPECIAL CONDITION ROUTINE 
37 116403 000016 SC: MOVB RPAS(R4), RI 
037610 001014 BNE 2$ 
037612 037 041464 JSR RO. RD. RP 
037616 RPCS1 
037620 037006 cis 
037622 106126 ROLB (SP )+ 
037624 100405 BMI 
037626 004037 042756 JSR RO. ES. SAV 
037632 104001 ERROR 
037634 004737 042154 JSR PC. SET. IE 
037640 7 1$: RTS Cc 
037642 6 2$: CLR -(SP) 
037644 110316 MOvB R3. (SP) 
037646 012703 000001 Mov RI 
037652 005001 CLR 
037654 030316 SC 3: BIT R3. (SP) 
037656 001005 BNE sc5 
037660 005201 SC4: INC Ri 
037662 106303 ASLB R3 
037664 001373 BNE $C3 
03 005726 TST (SP )+ 
037670 000207 RTS PC 
037672 105761 034410 SC5: TSTB DP INT(R1) 
037676 001402 BEQ 1$ 
037700 000137 040576 JMP SC13 
037704 105761 034420 1$: TST8 DPRQS(R1) 
037710 001402 BEQ 2$ 
037712 000137 040576 JMP SC13 
037716 106761 034370 25: TSTB ORVSTA(R1) 
037722 00 BGT 
037724 105761 034436 TSTB ULDFLG(R1) 
037730 0034 BLE 5$ 
037732 004737 042672 JSR PC, GETREQ 
037736 004737 042036 JSR PC. SVRH11 
037742 004737 040526 JSR PC,SC12 
037746 105761 034370 TSTB ORVSTACR1) 
037752 003416 BLE 6$ 
037764 032737 O40000 034350 BIT #B1T14,RPERRS 
037762 001002 BNE 3$ 
037764 000137 040436 JMP Sci 
037770 013705 034352 3$: MOV RPERRS+Z, RS 
037774 2 BR A 
037776 105761 034360 55: TSTB ORVACT(R1) 
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09:24 PAGE 164 


+ CHECK OTHER DRIVES 
RELEASE THE DRIVE 
CHECK FOR OTHER DRIVES 
ERROR FLAG 

THE “DRIVE'S WAIT” QUEUE 
SAVE THE RH11/RPO4/S/6 REGISTERS 


+ CHECK FOR OTHER DRIVES 


READ “RPAS" 
+BRANCH IF ANY ‘ATA’ BITS SET 
+READ CONTROL AND STATUS REGISTER 


71S “lE"=21? 

;YES, NO DRIVES TO CHECK 

+ SAVE THE ADORESS IN ‘SESCAPE' 
REPORT AN ILLEGAL INTERRUPT 
+SET INTERRUPT ENABLE 


+ RETURN 
; PROCESS, — DRIVES THAT HAVE 


+ ATA=1? 
+ YES--BRANCH 
+MOVE TO THE NEXT ORIVE 


+BRANCH IF MORE TO CHECK? 


; ER 
Bl te A hee THE DRIVE ? 
BR IF NOT 


‘PROCESS THE DRIVE 

PORT REQUEST OUTSTANDING 7? 
+BR IF NOT 

+ START THE OUTSTANDING COMMAND 
+CHECK THE DRIVE STATUS 


BRANCH IF ONLINE 

+ UNLOAD IN PROGRESS? 
+ BRANCH ¥ Ran 

4M DPB P 


INTER 

SAVE THE RHI 1 PRPON/5/6 REGISTERS 
;SAVE RPOS1, RPER1, RPERZ, AND RPER3 
ALSO 00 A DRIVE INIT (ORVINT) 
+DID DRIVE COME ONLINE? 
+ NO---BRANCH 
+WAS THERE AN ERROR? 
iBR IF ERROR 


ANS gt | 6 AND 


; THE E 
+DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 








— 
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CZR JAC. P11 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0161 
8690 040002 001033 BNE SC6 7BR IF EITHER 
8691 O4000% 004737 040526 JSR PC. SC12 + SAVE RPDS1. RPER1. RPERZ. AND RPERS 
8692 ALSO DO A ORVINT 
8693 O40010 105761 034410 6$: TSTB DP INT(R1) + TRYING TO INIT THE DRIVE 7? 
869% O4001% 001321 BNE 4 ;BR iF YES. CHECK ON MORE DRIVES 
8695 040016 105761 034370 TSTB DRVSTACRI) +; CHECK ON DRIVE'S STATUS 
869 040022 100412 BMI 7$ 7BR IF UNSAFE 
8697 040024 032737 020000 034356 BIT #B81T13.RPERRS+6 ; ADDRESS PLUG CHANGED 7? 
8698 40032 001013 BNE 8s BR IF YES 
8699 O6O0038 012746 000113 Mov #113,-(SP) 7 RELEASE COMMAND 
8700 O800%0 OO4037 041644 JSR RO, WRT. RP +WRITE THE COMMAND INTO RPCS1 
8701 O800%4 000000 RPCS1 REGISTER INDEX 
8702 G4O0%6 040406 sc8 PARITY EXIT AOORESS 
8703 O40050 011605 7$: MoV (SP),R5 PICKUP (RPRS) Bey THE ERROR CALL 
8708 040052 004037 042756 JSR RO. ES. SAV +SAVE THE ADORESS IN ‘SESCAPE' 
8705 040056 104002 ERROR 2 ;REPORT THE UNEXPECTED ATTENTION 
8706 040060 000677 BR Ssc4 GO CHECK FOR MORE ATA'S 
8707 040062 8S: 
8708 040062 004037 042756 JSR RO. ES. SAV ;SAVE THE ADDRESS IN 'SESCAPE' 
8709 040066 104005 ERROR 5 REPORT THE ADDRESS PLUG CHANGE 
8710 040070 000673 BR SC4 + CHECK FOR MORE DRIVES 
8711 040072 006301 SCé6: ASL R1 + SETUP _TO ADDRESS WORDS 
8712 O460074 012761 177777 034462 MOV #-1,TIMER(R1)  ;STOP THE TIMER 
8713 040102 006201 ASR R1 +RESTORE THE DRIVE ADDRESS 
8714 O04010% 004737 042672 JSR PC, GETREQ +GET THE OPB POINTER FROM THE QUEUE 
8715 040110 010164 000010 Mov R1,RPCS2(R4) SELECT DRIVE 
8716 00114 O04037 041464 JSR RO. RD. RP +READ THE RPOY'S STATUS REG. 
8717 040120 000012 RPOS1 
8718 040122 O40406 Sc8 
8719 040124 011605 MoV (SP).R5S AND PUT IT IN RS 
8720 040126 006126 ROL (SP )+ +WAS THERE AN ERROR? 
8721 040130 100407 BMI 1$ BR IF ERROR 
8722 040132 105761 034360 TSTB DRVACT(R1) fe DRIVE'S STATE 
8723 040136 003137 BGT SC11 +BR IF DRIVE ACTIVE WITH ORDER 
8724 040140 052762 100210 000016 BIS #61115 'B1T07!B1TO, 16(R2) + INFORM USER OF ERROR RECOVER COMPLETION 
8725 040146 000470 BR 7? 
8726 040150 004037 041464 1$: JSR RO. RD. RP READ ERROR REGISTER #1 
8727 040154 000014 RPER1 
8728 040156 040406 Sc8 
8729 040160 012605 MOV (SP)+,R5 AND SAVE IT IN RS 
8730 040162 004737 042036 JSR PC, SVRH11 + SAVE RH11/RPO4/5/6 REGISTERS 
8731 040166 012746 000111 MoV #111,-(SP) + ISSUE A DRIVE CLEAR 
8732 040172 OO04037 041644 JSR RO. WRT. RP 
8733 040176 000000 RPCS1 
875 040406 Sc8 
8735 040202 006105 SC6A: ROL RS ;WAS “UNSAFE” CONDITION =17? 
8736 04020" 100406 BMI 1$ +BRANCH IF YE 
8737 040206 005702 TST R2 ANYTHING IN QUEUE ? 
8738 040210 001447 BEQ SC? BR IF NOT 
8739 040212 062762 100240 000016 BIS #6 1T15!81T07!81T0S, 16¢R2) + INFORM USER OF ERROR 
8740 040220 000443 BR SC? 
8741 040222 OO4037 041464 1$: JSR RO. RD. RP READ DRIVE STATUS REG. #1 
8742 040226 000012 RPOS1 
8743 040230 040406 Sc8 


8744 040232 011605 MOV (SP),R5 + SAVE RPDS1 IN RS 
8745 040234 006126 ROL (SP )+ +"ERR"=1? 








8763 
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09: 1 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


040236 
040240 
Oo 


JAC. Pil 27-JUL-78 


177777 
20. 
110000 
010000 


034504 
034370 
000113 
041644 
037660 
034360 


042672 
036706 


036734 
037660 


034370 
000016 


034360 
034370 


034462 


000016 


000016 


034432 


000016 


034354 
034356 


23: 


3$: 
SC?: 


1$: 


25: 


$C12: 


zs BR IF NO--UNSAFE CLEARED 
#-1,ORVSTACR1) ;ORIVE IS UNSAF 

- SVRHI11 ; SAVE RH11/RPO4/5/6 REGISTERS 
2 htt + INFORM USER OF UNSAFE ERROR 


#81T12.R5 ;“MOL“ = 1? 
3$ 


BR IF YES 
#-1,DRVACT(R1) -;ACTIVE ERROR RECOVER 
#1,DRVSTA(R1) -; ONLINE 


R1 
— ,TIMERCR1) ; START 30 SECOND TIMER 


sc4 
#81715'81T07'B1TO4, 16(R2) + INFORM USER OF ERROR 


DRVACT (RI) *DRIVE IS IDLE 

PC, EMPTYQ DUMP THE QUEUE 

halal UNLOAD IN PROGRESS OR QUEUE? 
1$ +BR_ IF NOT 

ULDFLG(R1) CLEAR UNLOAD FLAG 
ATABIT(RI), RPAS(RY) + CLEAR oes BIT 
DRVSTAC(R1) 1S THE DRIVE UNSAFE 7? 

2$ BR IF IT IS 

#113,-(SP) RELEASE COMMAND 

RO. WRT. RP +WRITE THE COMMAND INTO RPCS1 


+REGISTER INDEX 


PARITY EXIT ADDRESS 
sc4 + CHECK FOR MORE DRIVES 
DRVACT(R1) 1S DRIVE IDLE? 
1 + YES-- BRANCH 
PC, GETREQ ‘eS DPB POINTER 
PC,CI7 PROCESS THE PARITY ERROR 
2$ > CONT | NUE 
PC,C1I7B ;PROCESS THE UNCORRECTABLE PARITY ERROR 
Sc4 + CHECK MORE DRIVES 
ULOFLG(R1) +"UNLOAD IN PROGRESS"? 
1$ BRANCH IF NO 
pth Sp af + CLEAR UNLOAD FLAG 
DRVACT sSET ORIVE IDLE 
RTABIT CRI). SRCHWT ;DOING A SEARCH OPERATION FOR 
AN 170 COMMAND? 


;BRANCH IF YES 
PC, POP QUE ; REMOVE REQUEST FROM QUEUE 
#81T07,16(R2) ;SET “DONE” BIT 
SAVEFG + SAVE ag a timer 


2$ + BRANC 

PC, SVRH11 + YES--SAVE ALL OF THE a ers REG'S 
ATABIT(RI),RPAS(R4Y) ; CLEAR ATTENTION BIT 

PC, OPT + START A REQUEST 


SC4 +CHECK FOR MORE DRIVES 
R1,RPCS2(R4) SELECT ORIVE 


RPOS1(R4), RPERRS +SAVE THE FOUR REGISTERS THAT 
RPERI (RY), RPERRS+2 +WILL TELL US SOMETHING 
RPERZ(R4), RPERRS+4 

Ag he alia 

RO. ORV INT T. THE STATE OF THE DRIVE 

1$ STAKE ERROR EXIT 


SEQ 0162 


SEGrRSEs Re 


oat et 
vn-o 


ND > oF et oot od eed ot 
—Oveavenstw 


BREE 


3 
wR 


ei 
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Pil 27-JWL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0163 
040570 000207 RTS PC ; ee Pe 
040572 005726 1$: TST (SP )+ OP PC OFF OF THE STACK 
040578 000704 BR Sc8 ‘PROCESS THE PARITY ERROR 
040576 006301 SCi3: ASL Ri + SETUP TO ADDRESS WORDS 
Q40600 012761 177777 034462 Mov 8-1, TIMER(R1) ; STOP THE TIMER 
040606 006201 ASR Ri 
040610 010164 000010 MoV Ri, RPCS2(R4) SELECT THE DRIVE 
040614 116164 034504 000016 MOvB ATABIT(R1).RPAS(RY) ; CLEAR THE ATTENTION BIT 
040622 032714 004000 BIT #BiT11, (RY) +DRIVE AVAILABLE ? 
040626 001006 BNE 1$ *BR IF AVAILABLE 
040630 006301 ASL R1 
O40632 012761 023420 034462 MoV #10000... TIMER(R1) -;START 10 SEC TIMER AGAIN 
040640 006201 ASR R1 
Q40642 000433 BR 3$ sEXIT 
C4064" 105761 034410 15: TSTB OP INT(R1) ; ed a THE DRIVE ? 
040650 001424 BEQ 2s BR IF NO 
040652 105061 034410 CLRB OP INT(R1) + CLEAR THE INIT INDICATOR 
O40656 004037 034746 JSR RO. ORV INT -GO INIT THE DRIVE 
04162 000240 NOP + DUMMY PARITY ERROR RE TURN 
O40664 105761 034370 TSTB DRVSTACR1) SORIVE ONLINE ? 
040670 003014 BGT 2$ ;BR IF YES -- START ORDER 
O4(1%672 005702 TST R2 + QUEUE ENTRY FOR THE DRIVE 
040674 001416 BEQ 3$ +BR_IF NOT 
040676 004737 042672 JSR PC, GETREQ +GET DPB ADDRESS 
040702 052762 140000 000016 BIS #B1T15'BIT14.16(R2) ; INFORM USER THAT DRIVE OFFLINE 
040710 004737 042036 JSR PC, SVRH11 + SAVE THE REGISTERS 
040718 004737 042576 JSR PC. EMPTY EMPTY THE REQUEST QUEUE 
040720 UOCo4DY BR 3$ 
040722 105061 &35420 2S: CLRB DPRQS(R1) ;CLEAR THE PORT REQUEST INDICATOR 
040726 004737 035576 JSR PC, OPT START THE PENDING REQUEST 
040732 000137 037660 3$: JP Sc4 +PROCESS OTHER DRIVES 
+ ai TIMER ROUTINE 
; MOV TIME, -(SP) *ELASPED TIME IN MILLISECONDS ON THE STACK 
; JSR PC, RPTMR CALL RPO4/5/6 TIME ROUTINE 
040736 005737 O34434 RPTMR: TST ACTORV *CHECK “ACTORV . ACTSTR™ 
040742 001030 BNE 4§ + 1F NON ZERO EXIT 
O4O744 112737 000001 034435 MOvVB #1, ACTSTR SET “ACTSTR" 
040752 104412 SAVREG +SAVE RO - RS 
040754 005001 CLR R1 + START WITH DRIVE O 
0756 3 CLR R3 
040760 005763 034462 1$: TST TIMER (R3) 1S THE TIMER RUNNING? 
040764 002407 BLT 2$ +BRANCH IF NO 
040766 166663 000002 034462 SUB 2(SP), TIMER(R3) ; COUNT THE INTERVAL 
040774 003003 BGT +BR IF NO SOFTWARE TIMEOUT 
040776 004737 041030 JSR PC. STO CALL SOFTWARE TIMEOUT ROUTINE 
041002 0004 BR 3$ +GO TO THE EXIT 
041004 1 2s: INC Ri MOVE TO NEXT DRIVE 
041006 005723 TST (R3)+ 
041010 022701 000010 CMP #8.,R1 OUT OF DRIVES? 
041014 003361 BGT 1$ BRANCH IF NO 
041016 104413 3$: RESREG RESTORE RO - RS 
041020 105037 034435 CLRB ACTSTR +ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
041024 012616 4$: MOV (SP )+, (SP) ;ADJUST THE STACK 


BEES EEEEEEEEREP EERE ERECT LUE LELE RERERD 
Wrn-o os WAH PT 
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Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0164 
041026 000207 RTS PC + RETURN 


+ SOFTWARE TIMEOUT ROUTINE 
;NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
; OR GREATER 


, 


CALL: STO 

; MoV #ORVNUM. R1 DRIVE NUMBER 

; JSR PC, STO + CALL 

; RE TURN 
041030 010146 STO: Mov R1.-(SP) + SAVE R1 
041032 010346 MoV R3.-(SP) + SAVE R3 
O41034 013 034516 MoV RPADR, RY +GET ADORESS OF “RPCS1" 
041040 010164 000010 Mov R1,RPCSZ2(R4) + SELECT THE DRIVE 
041044 004037 041464 JSR RO, RD. RP READ “DRIVE STATUS REG" 
041050 000012 RPOS1 
041052 041352 STOS 
041054 105726 TSTB (SP )+ +1S “ORY"=1? 
041056 100477 BMI ST02 BR IF YES 
041060 105761 034410 STO1: TSTB OP INT(R1) TRYING TO INTIALIZE THE DRIVE ? 
041064 001074 BNE STO2 BR _IF YES 
041066 105761 034420 TSTB DPRQS(R1) OUTSTANDING PORT REQUEST FOR THE DRIVE 7? 
041072 001071 BNE ST02 -BR IF YES 
041074 013702 034430 Mov TRNSWT, RZ +PICKUP TRANSFER WAIT QUEUE 
041100 020137 034502 CMP R1,O0TUW + TRANSF _— UNDERWAY ON THIS DRIVE? 
041104 001402 BEQ 1$ BRANCH IF YES 
041106 004737 042672 JSR PC, GETREG GET DPB ADDRESS 
041112 052762 101000 O00016 1%: BIS #61T15'!BITOS. 16(R2) ;SET THE ERROR FLAGS 
041120 004737 042036 JSR PC, SVRH11 + SAVE RH11/RPO4/5/6 REGISTERS 
041124 012764 000040 000010 MoV #6 1TOS.RPCSZ2(R4) ; “INIT” THE MASS BUS 
041132 105061 034360 CLRB DRVACT(R1) *DRIVE 1S IDLE 
041136 105061 034436 CLRB ULDFLGCRI) +CLEAR THE UNLOAD FLAG 
041142 005001 CLR R1 START WITH DRIVE O 
041144 005003 CLR R3 
041146 004037 034746 23: JSR RO, ORV INT + INIT. THIS DRIVE 
041152 000477 BR STOS PARITY ERROR RETURN 
041154 105761 034360 TSTB DRVACT(R1) /ORIVE IDOLE BEFORE THE INIT. ? 
041160 001414 BEQ 4§ + YES--BRANCH 
041162 013702 034430 MoV TRNSHT, R2 +GET TRANSFER WAIT QUEUE 
041166 023701 034502 CMP OTUW. R1 ;WAS THERE 170 ON THIS DRIVE? 
041172 001402 BEQ 3$ + YES--BRANCH 
041178 004737 042672 JSR PC, GETREQ +GET THE DPB POINTER FROM QUEUE 
041200 062762 100400 O00016 3%: BIS #61T15'B1TOS, 16(R2) ; Sate USER OF INIT. 
041206 106061 034360 CLRB DRVACT(R1) +SET ORIVE ACTIVE TO IDLE 
041212 106061 034436 4§: CLRB ULOFL GiRI) +NO UNLOAD 
041216 012763 177777 034462 Mov 8-1, TIMER(R3)  :STOP THE TIMER 
041224 006723 TST (R3)+ + UPDATE THE INDEX 
041226 006201 INC R1 + INCREMENT THE DRIVE NUMBER 
041230 022701 000010 CMP #8. .R1 +LAST ORIVE BEEN CHECKED? 
041238 003344 BGT 2$ +NO--LOOP 
041236 012737 177777 034502 MoV #-1,D0TUW ;NO DATA TRANSFERS UNDERWAY 
041244 005037 034430 CLR TRNSWT +CLEAR TRANSFER WAIT QUEUE 
041260 004737 042520 JSR PC, CLRQUE ‘CLEAR ALL REQUEST QUEUES 
041254 000500 BR STO9 sEXIT 












RPO4/5/6 MECHANICAL a remeron, * TEST MACY11 30A(1052) 


Pil 27-JUL-78 09: 


SRSISERE 


=f ot oD 


99999999999999999999999999999 | 
RISFERRSSSSESSRE 


eo oe oe et pe ce ee eh ret ce ce pe oe ee pet ce mt eet oe fet et ee ee et 


ss 
2 


013737 
011646 
013737 
062037 
013727 


000016 
034504 


034410 
034420 
034502 
041464 


034514 
034516 
041510 





034462 


034462 


000016 
034462 


000016 


041632 
041510 





$T02: 


STO?: 


STO8: 
STO9: 


MOVE RPAS(R4Y), RS 
BITB ATABIT(RI), RS 


BNE STO3 

TSTB DP INTCR1) 

BNE T06 

TSTB DPRQS(R1) 
$T07 

CMP R1,OTUW 


BNE $T01 

JSR RO. RD. RP 
RPCS1 

STOS 

TSTB (SP )+ 
BPL STO1 

TSTB DP INTC(R1) 
BNE 1$ 

TSTB DPRQS(R1) 
BEQ 


STO9 
MOV #-1, TIMER(R3) 
STO9 
JSR PC. CI8 
STO9 
CLRB DP INT(R1) 
CLRB DRVSTACR1) 


MoV #-1, TIMER(R3) 
JSR pe Serene 


™. 


MOV 1, TIMER(R3) 
CLRB DPROS( RI) 
JSR pa Pees 


JSR PC, SVRH11 
MOV (SP)+,R3 
MoV ha Ri 
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READ ATTENTION REG 

+ 1S ATTENTION FOR THIS ORIVE UP 7? 

+ YES-- BRANCH 

+ TRYING TO INTIALIZE THE DRIVE ? 
IVE NO 


R_IF YES - T ONL INE 
: OUTSTANDING PORT REQUEST FOR THE DRIVE 7? 
+BR IF YES - NO RESPONSE TO REQUEST 
‘DATA TRANSFER UNDERWAY FOR THIS DRIVE 


7BR IF NO 
: YES--CHECK “ROY” 


;BR IF "RDY"=0 
S INITIALIZING THE DRIVE ? 
[BR IF INIT PENDING 
PORT REQUEST PENDING 7? 

: $10P THE TIMER 


XI 
; GO HANDLE THE PARITY ERROR 


+CLEAR THE INITIALIZE INDICATOR 
+SET UNIT OFFLINE 

STOP THE TIMER 

+GET THE DPB a 

+REQUEST IN QUEUE 7? 


STO9 BR IF NOT 
BIS BITIS!BITI4, 16(R2) 2 INFORM THE USER DRIVE NOT AVAILABLE 
. 08 +F INISH 


; STOP THE TIMER 

/CLEAR PORT REQUEST INDICATOR 

+GET DPB ADDRESS 

oe ENTRY FOR DRIVE ? 
NONE 


STO9 :BR IF 
MoV #B1T15!B1TZ,16(R2) ; INFORM USER OF PORT bm a ERROR 
PC. EMPTYQ + CLEAR IVE 


THE QUEUE FOR THE OR 
i SAVE THE REGISTERS 
RESTORE R3 
RESTORE R1 

TURN 


ca 


*ROUTINE TO READ A RH11/RPO4/5/6 REGISTER 


; CALL 


’ 
’ 
’ 
‘ 
‘ 
: 
R 


D. RP: 


RD. RP1: 





JSR RO. RD. RP 


MOV MNCPEMX, RD. RP2 
MoV (SP), -(SP) 
MOV RPADR. RO. ADR 
ADD (RO)+, RD. ADR 
MOV a(PC)+, (PC)+ 


+GO READ A meeistes 
+73 INDEX FROM BASE 
+ ERROR eres eee ERROR STARTING 


CONTENTS OF REG IS ON THE STACK 


;MAX. RETRYS ALLOWED 

SAVE RO FOR RETURN 

+FORM THE DESIRED ADDRESS 

+USING THE BASE AND THE INDEX 

+READ THE DESIRED REGISTER OF THE RPOY 





‘ale! 


EEEEEEeeCULLLLEEER EES RRERETEEEELEEE CEKEEPEEEE BE 
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-Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 

041510 000000 RD. ADR: .WORD O sADORESS 1S FORMED HERE 
041512 000000 RD. WROD: .WORD O REG CONTENTS PUT HERE 
0415148 013766 041512 000002 nov RO. WROD, 2(SP) ;RETURN IT TO THE USER 
041522 013746 034516 MoV RPADR, - (SP) 7PUT THE ADDRESS ON THE STACK 
041526 062716 000010 ADD @RPCSZ. (SP) 7FORM THE ADDRESS OF RPCS2 
081532 032736 010000 BIT ose ares +CHECK THE ‘NED’ BIT 

041536 001037 BNE RO. RPS 7BR IF ORIVE NON-EXISTENT 
041540 017746 172752 MoV @RPADR, -( SP) ;READ RPCS1 

041544 032716 020000 BIT #B1T13. (SP) 7010 MCPE SET? 

041550 001002 BNE 1$ ;BRANCH IF YES 

041552 022620 CMP (SP )+, (RO)+ + ADJUST FOR RE TURN 

041554 000432 BR RD. RPS EXIT 

04 1556 1$: 

041556 004037 042756 JSR RO. ES. SAV : SAVE THE ADDRESS IN ‘SESCAPE' 
041562 104003 ERROR 3 | REPORT “MCPE” ERROR 

041564 005737 034502 TST OTUW ;DATA TRANSFER UNDERWAY? 
041570 100405 BNI 2s ; NO--BRANCH 

041572 032716 040000 BIT #B1T14, (SP) 7; NO--"TRE“=1? 

041576 001402 BEQ 2s ; NO--BRANCH 

041600 005726 TST (SP )+ ; YES--CLEAN OFF THE STACK AND 
041602 000415 BR RD. RPS > TAKE THE FATAL ERROR EXIT 
041608 052716 040000 23: BIS #B1T14., (SP) CLEAR “MCPE" BY SENDING A "1" TO “TRE” 
041610 000316 SWAB (SP) ;POSITION BEFORE WRITING 
041612 013737 O34516 041626 MoV RPADR, 3$ 7 FORM ADORESS OF HIGH BYTE 
041620 005237 041626 INC 3$ 

041628 112637 MOvVB (SP )+, a(PC)+ ;WRITE THE HIGH BYTE OF RPCS1 
041626 000000 3s: .-WORD O ; ADDRESS STORAGE 

041630 005327 DEC (PC)+ ; EXCEEDED MAX. RETRYS 

041632 000003 RO. RP2: .WORD 3 

041638 002324 BGE RD. RP1 ;BRANCH IF NO 

041636 011000 RD. RP3: MOV (RO), RO ; FATAL ERROR EXIT 

041640 012616 MoV (SP )+, (SP) 

041642 RD. RP4Y: RTS RO 


;ROUTINE TO WRITE A REGISTER 
+ CALL 
; MoV DATA, - (SP) ;DATA TO BE LOADED ON THE S 
; JSR RO. WRT. RP scm THE ROUTINE TO LOAD CGRITE) THE REG. 
3 INDEX INDEX OF THE REGISTER TO BE LOADED 
; ERRADR ; ADDRESS TO RETURN TO ON AN ERROR 
3 RE TURN sERROR FREE RETURN 
041644 013737 034514 042020 WRT. RP: MOV MCPEMX,WRT.R2 ;MAX RETRYS ALLOWED 
041652 016637 000002 041732 MoV 2( SP). WRT. WO +SAVE THE WORD TO WRITE 
041660 012616 MoV (SP )+, (SP) ;ADJUST THE STACK 
041662 012037 041734 MoV (RO)+, WRT. AD +GET INDEX OF REGISTER TO BE WRITTEN 
041666 001015 BNE 1$ + BRANCH IF NOT RPCS1 
041670 122737 000150 041732 CMPB #150. WRT. WO 71S THE COMMAND FOR DATA TRANSFERS? 
041676 0024 BLT 1$ + YES--DON'T GET THE OLD Al6 & Ai7. & PSEL 
041700 004 041464 JSP RO. RD. RP + NO-~~ COMB I NE Al6&8A17. & PSEL WITH 
041704 RPCS1 ; THE COMMAND BEFORE SENDING IT a 
041706 042026 WRT. R23 ; THE RH11/RPO4 
041710 000316 SWAB (SP) 
041712 042716 177770 BIC # C7. (SP) 
041716 112637 041733 MOVB (SP )4, URT. WO+1 


an 
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. Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0167 
041722 063737 O34516 041734 16: AOD RPADR. WRT. AD 7FORM THE ADORESS OF THE DISK REG. 
041730 012737 WRT. R1: MOV (PC )+, a(PC)+ +LOAD THE DESIRED REG. 

041732 000000 WRT.WO: .WORD O ;WORD TO WRITE GOES 
041734 000000 WRT. AD: .WORD O ; ESS 1S FORMED HE 
041736 013746 034516 nov RPADR, - (SP) ;PUT THE RODRESS ON THE STACK 
041742 062716 000010 ADD @RPCSZ. (SP) 7FORM THE ADORESS OF RPCS2 
041746 032736 010000 BIT @B1T12.a(SP)+ ;CHECK THE ‘NED’ BIT 
041752 001 BNE WRT. RS 78R IF ORIVE NON-EXISTENT 
041754 037 041464 JSR RO. RO. RP ; CHECK FOR PARITY ERROR ON WRITE 
081760 000014 RPERI 
041762 042026 WRT. RZ 
041764 032726 000010 BIT #8 1TO3. (SP )+ 
041770 001420 BEQ WRT. RY 7 BRANCH IF “PAR=0" 
041772 016037 177776 042004 nov -2(RO), 1 7PICKUP THE INDEX 
0482000 004037 041464 JSR RO. RO. RP ;READ THE REG. 
04% 2004 1$: .WORD O ;REG INDEX 
042006 042026 WRT. RZ ;RETURN TO THIS AODRESS ON ERROR 
042010 042756 JSR RO. ES. SAV +;SAVE THE ADORESS IN 
042014 104004 ERROR 4 ;REPORT THE PARITY ON WRITE ERROR 
042016 005327 DEC (PC)+ 3 REMENT THE E 
042020 000003 WRT.R2: .WORD 3 sRETRY C 
042022 002342 BGE WRT. R1 ; TRY AGAIN IF NOT FINISHED 
042024 005726 TST (SP )+ ; CLEAN OFF THE STACK 
042026 011000 WRT. R3: MOV (RO). RO ; TAKE THE “PARITY ON WRITE” ERROR EXIT 
042030 000401 BR WRT. RS ; EXIT 
042032 005720 WRT. R4Y: TST (RO)+ ;ADJUST FOR ERROR FREE EXIT 
042034 000200 WRT. RS: RTS RO 

;ROUTINE TO SAVE THE RH11/RPO4/5/6 REGISTERS AS PER DPB+14 

+ CALL 

; MoV #DOPBNUM. RZ ;OPB POINTER TO R2 

; JSR PC, SVRH11 >;SAVE THE ORIVES REG'S 
0% 104412 SVRH11: SAVREG ;SAVE RO - RS 
042040 005702 TST R2 ; QUEUE ENTRY FOR THE DRIVE ? 
042042 001430 BEQ y ;BR IF NONE 
042044 013704 034516 MoV RPADR, RY 
0420560 111264 000010 Move (RZ). RPCSZ2(R4) {SELECT DRIVE 
042064 016203 000014 MoV 14(R2).R3 ;GET THE ERROR TABLE POINTER 
042060 001433 BEQ 6$ sEXIT IF NO ADDRESS 
042062 006037 042116 CLR 3$ ; COUNTER & POINTER 
042066 023727 042116 000022 1%: CMP 3S. #RPOB + wre THE BUFFER REGISTER ? 
042074 001006 BNE ;BR IF NOT 
082076 032764 000200 000010 BIT #8 1TO7,RPCS2(R4) "OR SET ? 
042108 001002 BNE 2s SET 
082106 006023 CLR (R3)+ STORE RPOB AS ZEROES 
0%2110 000405 BR 4% s¢ 
082112 OO4037 041464 25: JSR RO. RD. RP TREAD. THE Se. SC Tee REGISTER 
042116 000000 3s: .WORD O +REGISTER INDEX 
082120 042144 5$ sERROR RETURN ADORESS 
082122 012623 MoV (SP )+, (R3)4 ;STORE THE REGISTER CONTENTS 
042124 023727 042116 O0004e 45: CMP 36. ARPECZ + ee THE END ? 
042132 001406 BEQ 6$ ;BR IF YES 
042134 062737 000002 042116 ADD #2, 3% ; INCREMENT THE REGISTER INDEX 
042142 000751 BR 1$ ; CONTINUE READING THE REGISTERS 


an 
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Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5S/6 DRIVER (REV 1.0) 
042144 004737 036706 55: JSR PC.CI7 a eeetees THE UNCORRECTABLE PARITY ERROR 
042150 104413 6$: RESREG RESTORE RO - RS 
042152 000207 RTS PC ; RETURN 

+) 7 epong TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
; MoV #ORVNUM. R1 *DRIVE NUMBER TO R1 
; SR PC, SET. IE ;SET “IE” 
; RE TURN 
042154 010446 SET. 1E: MOV R4,-(SP) SAVE R 
042156 013704 034516 MoV RPADR, RY ;P 1CKUP “aporess OF RPCS1 
042162 010164 000010 nov R1,RPCS2(R4) + SELECT DRIVE 
042166 011446 MoV (RY), -(SP) READ RPCS1 
042170 052716 040000 BIS #81714, (SP) +SET THE “TRE” BIT OF THE WORD READ 
042174 000316 SWAB (SP) *ADJUST FOR DATO 
042176 112714 000100 Move #8 1 TO6. ( + SE 
042202 032764 010000 000010 BIT aBIT1Z. RPCSZ(RY)” 1S “NED“=1? 
042210 001002 BNE 1$ YES--CLEAR "TRE" 
042212 005726 TST (SP )+ CLEAN OFF THE STACK 
042218 000402 BR 2$ 
042216 112664 000001 1$: MOvVB (SP )+, 1(R4) *CLEAR “TRE” 
042222 012604 2$: Mov (SP)+,R4 RESTORE R4 
042224 000207 RTS PC RETURN TO CALLER 
\ 
; a COUNT 
Om 000 QCNT .B8YTE 9 ORIVE O 
042227 000 .BYTE 0 DRIVE 1 
000 .BYTE OQ DRIVE 2 
000 BYTE QO ORIVE 3 
042232 000 BYTE QO ORIVE 4 
042233 000 .BYTE O DRIVE 5 
042234 000 ol. Se DRIVE 6 
042235 000 .BYTE 0O DRIVE 7 
; QUEUE INPUT POINTERS 
042236 042320 QINPT: .WORD QDRVO ORIVE O 
042240 042340 -WORD QDRVI1 sORIVE 1 
042242 2 -WORD QORVZ DRIVE 2 
042244 042400 -WORD QDRV3 DRIVE 3 
042246 042420 .WORD QDRV4 DRIVE 4 
042250 042440 .WORD QORVS ORIVE 5 
042252 WORD QDRV6 DRIVE 6 
042254 WORD QDRV7 DRIVE 7 
; QUEUE OUTPUT POINTERS 

042256 042320 QOUTPT: .WORD QODRVO DRIVE O 
042260 042340 .WORD QDRV1 DRIVE 1 
04 2262 2 .WORD QORV2 /ORIVE 2 
042264 042400 .WORD QORV3 DRIVE 3 
0% 2266 .WORD QORV4 sORIVE 4 
042270 042440 .WORD QORVS DRIVE 5 
042272 042460 .WORD QORV6 DRIVE 6 
042274 042500 .WORD QDRV? ORIVE 7 
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RPO4/S5/6 MECHANICAL 
. Pil 27-JUL-78 09: 18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0169 
042276 042320 QSTART: .WORD QDRVO ;ORIVE O START ADORESS 
042300 042340 QSTOP: .WORD QDRVI 7ORIVE O STOP ADORESS & ORIVE 1 START ADDRESS 
04% 2302 360 -WORD QDRVZ +STOP ORIVE 1--START DRIVE 2 
042308 042400 -WORD QORV +STOP ORIVE 2--START DRIVE 3 
042306 042420 .WORD QDRVY ;STOP ORIVE 3--START ORIVE 4 
042310 042440 . WORD >STOP DRIVE 4--START ORIVE 5 
042312 042460 .WORD QDRVE ;STOP ORIVE 5--START DRIVE 6 
042314 042500 .WORD QDRV7 >STOP ORIVE 6--START DRIVE 7 
042316 042520 .WORD QTERN ;STOP DRIVE 7 
> DRIVE REQUEST QUEUES 
OS 000010 QDRVO BLKW 10 
042340 000010 QORVI BLKW 
ON 000010 QORVZ BLKW 10 
ON 24 000010 QORVI BLKW 10 
O% 000010 QOR VY BLKW 10 
042440 000010 QORVS BLKW 10 
2460 000010 QORVE BLKW 10 
042500 000010 QDR V7 BLKW 10 
042520 QTERNM= 
+ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
+> CALL 
: JSR PC, CLRQUE 
042520 104412 CLRQUE: SAVREG >; SAVE RO - RS 
042822 012702 042226 MoV #QCNT. RZ + ZERO THE QUEUE COUNTS * 
042526 005022 CLR (R2)+ -ORIVES O & 1 
042530 005022 CLR (R2)+ sORIVES 2&3 “iA . 
082532 005022 CLR (R2)+ -ORIVES 4&5 big he “6 
042534 005022 CLR (R2)+4 sORIVES 6 & 7 Chee apy 
042536 012703 000010 MoV #8. .R3 ;MOVE THE STARTING 
042642 012701 042276 MOV #QSTART, Ri ; ADDRESS OF THE QUEUE INTO 
Oe2546@ 012122 1$: MoV (R1)+4, (R2)+ > THE QUEUE INPUT POINTER 
062560 005303 DEC R3 
042652 001375 BNE 1$ . 
042554 012703 000010 MOV #8. .R3 +MOVE THE STARTING ADDRESS 
042560 012701 042276 MoV @QSTART.R1 - ;OF THE QUEUE INTO THE 
042664 012122 23: MoV (R1)+4, (R24 ;QUEVE OUTPUT POINTER 
042566 005303 DEC R3 
042570 001375 BNE 2$ ’ 
042572 104413 RESREG ;RESTORE RO - RS , 
042574 000207 RTS PC 
;EMPTY THE QUEUE SPECIFIED BY R1 
+ CALL 
é MOV OR VNUM, R1 sDRIVE NUMBER TO Ri 
; JSR PC, EMPTYQ 
042576 105061 042226 EMPTYQ: CLRB QCNT(R1) > CLEAR NUMBER OF ITEMS IN QUEUE 
042602 006301 ASL R1 
042604 016161 042236 042256 MOV QINPT(R1), QOUTPT(R1) ; SET OUTPUT QUEUE POINTER=INPUT POINTER 
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. Pil 27-JU-78 09:18 SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) SEQ 0170 
042612 006201 ASR Ri 
042614 000207 RTS PC 

;ROUTINE TO PUT A REQUEST IN QUEUE 

> CALL 

; mov SORVNUM, R1 ;ORIVE NUMBER 

; nov #0PB,R2 ;ADORESS OF PARAMETER BLOCK 

; JSR RO, ORVQUE ;GO PUT REQUEST IN ae 

; RE TURNI ;RETURN HERE IF QUEUE IS FULL 

; RE TURNZ 7RETURN HERE iF REQUEST IS IN QUEUE 
042616 122761 000010 042226 DRVQUE: CHPB #10, QCNT(R1) 71S QUEUE FULL? 
042624 001421 BEQ 2$ 7BR IF YES-TAKE RETURN 
042626 105261 042226 INCB QCNT(R1) +; INCREMENT QUEUE COUNT 
042632 006301 ASL R1 
0426345 010271 042236 MoV RZ, @GINPT(R1) +PUT THIS REQUEST IN QUEUE 
042640 062761 000002 042236 ADD #2. QINPT(R1) + UPDATE THE QUEUE POINTER 
042646 026161 042236 042300 CMP QINPT(R1), QSTOP(R1 ) A hey TO RESET THE POINTER 
042654 001003 BNE 1§ > BRANCH IF NO 
042656 016161 042276 042236 MoV QSTART(R1),.QINPT(R1) ; YES--RESET POINTER 
042664 006201 1$: ASR R1 
042666 005720 TST (RG)+ ; TAKE RETURN 2 
042670 000200 23: RTS RO >RETURN TO USER 

;ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 

> CALL 

; MOV #ORVNUM. R1 ;DRIVE NUMBER TO R1 

; JSR PC, GETREQ +GO GET THE REQUEST 

; RE TURN +R2="DPB" ADORESS OF THE REQUEST 

3 +R2=0 IF NO REQUEST IN QUEUE 
042672 005002 GETREQ: CLR RZ 
042674 105761 042226 TSTB QCNT(R1) > 1S THERE ANY REQUEST IN QUEUE? 
042700 001404 BEQ 2$ + NO---BRANCH 
042702 006301 15: ASL R1 
042708 017102 042256 MOV @QOUTPT(R1).R2 ;PICKUP “DPB” POINTER FOR THIS DRIVE 
042710 006201 ASR R1 
042712 000207 2s: RTS PC +RETURN TO USER 

;ROUTINE TO “POP” THE REQUEST FROM QUEUE 

CALL 

; MoV #ORVNUM, R1 ;DORIVE NUMBER TO Ri 

; JSR PC. POP QUE +CALL TO REMOVE REQUEST 

; RE TURN 7RZ2=ADDRESS OF DPB RENOVED 
042714 105361 042226 POPQUE: DECB QCNT(R1) +;DECREMENT QUEUE COUNT 
042720 006301 ASL R1 
042722 017102 042256 MoV @QOUTPT(R1).R2 ;GET THE “DPB” POINTER 
042726 062761 000002 042256 ADD #2, QOUTPT(R1) + UPDATE THE QUEUE POINTER 
042734 026161 042256 042300 CMP + anhlamaden QSTOP(R1) ; TIME TO RESET THE POINTER? 
042742 001003 BNE 1$ ;NO--BRANCH TO EXIT 
042744 016161 042276 042256 MoV QSTART(R1), QOUTPT(R1) + YES--RESET THE POINTER 
042762 006201 1$: ASR R1 





wn 
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042754 000207 RTS PC RETURN TO USER 


;ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE’ WHEN THE DRIVER 
+REPORTS AN ERROR DIRECTLY. 


+ CALL 

3 JSR RO. ES. SAV 

3 ERROR WN 72 THE ERROR CALL 

; RE TURN + THE RETURN IS PAST THE ERROR CALL 
042756 012037 042772 ES. SAV: MOV (RO)+, 1% ;GET THE ERROR CALL 
042762 013746 001206 Mov SESCAPE.-(SP)  ;SAVE THE ADDRESS IN ‘SESCAPE' 
042766 005037 001206 CLR SESCAPE ;CLEAR THE ESCAPE RETURN 
042772 000000 1$: .WOoRD O > THE ERROR CALL 1S MOVED HERE 
042774 012637 001206 MoV (SP)+,SESCAPE ;RESTORE THE ESCAPE ADDRESS 
043000 000200 RTS RO ; RETURN 


.SBTTL ASCIZ MESSAGES 


043002 000122 MSG.R: .ASCIZ /R/ 
04300" 041506 000 MSG. FC: | ASCIZ /FC/ 
043007114 103 MSG.LC: .ASCIZ /LC/ 

043012 041506 000047 MSGFCP: .ASCIZ /FC'/ 

O43016 041514 GLCP: | ASCIZ /LC'/ 

043022 041511 MSG. IC: .ASCIZ 7IC/ 

043025 106 000124 MSG.FT: .ASCIZ /FT/ 

043030 052114 NSG.LT: | ASCIZ /LT/ 

043033 = 111 000124 MSG. IT: .ASCIZ 7IT/ 

043036 051506 000 MSG.FS: .ASCIZ /FS/ 

04 3041 114% 000123 GLS: -ASCIZ /LS/ 

4 3044 000124 NSG. PAT: -ASCIZ /PAT/ 
043050 000075 EQ: .ASCIZ 7=/ 

043052 005015 047503 052116 MSG.CS: _ASCIZ <CR><LF>/CONTROL SWITCHES=/ 
04 3060 020114 053523 
043066 052111 044103 051505 

04 3074 

043076 027440 000040 SLASH: .ASCIZ a/a 

043102 047125 052111 051440 SYSTAT: _ASCIZ /UNIT STATUS: 7<CR><LF><LF> 
043110 O¥0524 052524 035123 

043116 005015 000012 

043122 051108 053111 000105 UNTMSG: .ASCIZ /DRIVE/ 

043130 ON7440 043106 044514 UNTOFF: .ASCIZ / OFFLINE/ 
043136 042516 000 

On3i41 O¥O 047117 O44S14 UNTON: .ASCIZ / ONLINE/ 
043146 042516 000 

043151 O¥O 047516 020124 NOTPRS: .ASCIZ / NOT PRESENT/ 
043166 051120 051505 047105 

043164 00012" 

O¥3166 052440 051516 043101 NOTSAF: .ASCIZ / UNSAFE/ 
043174 000105 

043176 O%70"0 052117 051040 NOTRP: .ASCIZ @ NOT RPO4/5/6a 
043204 030120 027464 027465 

043212 000066 

043214 050122 032060 #000 RPOWB: .ASCIZ /RPOW/ 
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7RPOS/ 
/RPOG/ 
(CROCLF>/DRIVE(S) TO BE TESTED / 


= 
<CR><LF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/ 


TESTNG: . (CRO<LFO<CLFO/TESTING DRIVE 7 


99999999939999 
Se sReeRIGEHTES 


SERIAL: . 7SERIAL NUMBER 7 


MSG?: _ ASCI <CRO<LFD<LF>/ROTATIONAL SPEED TIMES/ 


<(CRO<LF><LF>/ONE CYLINDER SEEK TIMES/<CR><LF>/ & FORWARD/ 


043410 
O4 3416 
O4 3422 
O% 3430 
O4 436 
O4 3444 
3452 
3454 
3462 
3470 
3476 
3504 


- 
L) 


MSG106: . <CRO<LF>/ & REVERSE 


MSG11A: . <CR><LF<LF>ZACCESS TIME MEASURMENT/<CR><LF>/ & FORWARD/ 


MSG11B: . (CRO<LFD/ ¥ REVERSE 


MSG12A: . <(CR><LF><LF>/MAXIMUM SEEK TIMES/<CR><LF>/ & FORWARD 


EPEER Spe Sskesseece 
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Af er 025040 043040 at 4 
04 3665 015 020012 020052 MSG12B: .ASCIZ <CR><LF>/ % REVERSE/ 
043672 042522 042526 051522 
043700 000105 
a 044515 036516 MSGNMIN: .ASCIZ <CR><LF>/MIN=/ 
015 046412 054101 MSGMAX: .ASCIZ <CR><LF>/MAX=/ 
a 2 053101 036507 MSGAVG: .ASCIZ <CR><LF>/AVG=/ 


052440 090123 MSGOUS: .ASCIZ /0 US/ 
MBELOW: .ASCIZ / BELOW THE MINIMUM OF 7 


3 
g 
2 
> 
SS 
N 


SSSSS 
SeSeses 


& 
3 
2 
bf 
oe 
3? 
© 
a 
oO 
oy 
™N 


MABOVE: .ASCIZ / ABOVE THE MAXIMUM OF / 


000040 
051513 MSGNUM: .ASCIZ / SEEKS TIMED/ 


ree 
: 


SPPPIIISISIIIIIIIIP 
| 
ise) 
o 
2 
g 
o 
2 
$ 
é 


051440 
000 
4027 O40 047516 020124 MSGNON: .ASCIZ / NOT TIMED/ 
044524 042515 000104 
020040 000 MSG.SP: .ASCIZ 7 / +TWO (2) SPACES 
.SBTTL ERROR HEADER (EM) MESSAGES 
044045 122 apt 020061 EM1: .ASCIZ /RH11 INTERRUPT OCCURRED (RPAS = 0)7 


030040 
064105 042520 ENZ2: .ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
1 000104 
044146 040515 061523 052502 EN:3: .ASCIZ /MASSBUS PARITY ERROR(MCPE=1)/ 
23 0520 
EM4:: .ASCIZ /MASSBUS PARITY ERROR(PAR=1)/ 


000 
044237 101 042104 042522 ENS: .ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 
2H4 060040 
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030510 
032060 


047111 
052440 


RROR HEADER (EM) MESSAGES 


En10: 


Eni1: 


EN12: 


EM13: 


EN17: 


ENZO: 


EN23: 


EN24: 


EM41: 


EmM4e: 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


“"RH11/RPO4/5/6 FAILED TO RESPOND TO ADDRESSING” 


7DRIVE SELECTED 1S NOT ONLINE/ 


7 IMPROPER HEADER DATA/ 


7DATA COMPARE FAILURE/ 


7DISK ERROR IN TIMING TESTZ 


ZCLOCK (KW11-P) OVERFLOW IN TIMING TESTZ 


7DISK ERROR DURING SEEK/ 


7SEEK NOT COMPLETE WITHIN 120 MS/ 


“RH11/7RPO4/5/6 ERROR" 


7FATAL WRITE CHECK ERROR/ 


.SBTTL STATUS/ERROR INDICATOR MESSAGES 


MSGB14: 


.ASCIZ ZOFFLINE OR UNSAFE DRIVE REQUESTED/ 


eo es 
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OV4740 051516 043101 020105 
OV4746 051108 053111 020105 
O% 052521 051505 


2 
z 
2 
BE 
: 


047514 042101 MSGB13: .ASCIZ /UNLOADED DRIVE REQUESTED/ 
2040 044522 
050505 


RR 
o 


g2> 
o 
R2 
-_ 

2 

o 


2 
S 
oat 
i=) 
FR aes 
R 
me 
& 
e 
= 
R 


Sans 
g 
E 
iS 
: 
: 


051105 044523 MSGB12: .ASCIZ /PERSISTENT UNSAFE/ 


“Ne 


051101 052111 MSGB11: .ASCIZ /PARITY ERROR OCCURRED/ 


o 
88 


a 
R 
ea OB gst St 
ofBRSB 
e 
os 
by 
~N 


042105 000 
052101 046101 MSGB10O: .ASCIZ /FATAL PARITY ERROR/ 


2 
wn 
ao 
8 
§ 
2 
R 
—_ 
~~ 
R 
= 
~N 
uw 
& 
w 


045110 000122 
045112 047523 052106 040527 MSGBO9: _ASCIZ /SOFTWARE TIMEOUT ON THIS DRIVE/ 
045120 052040 


045151 123 043117 053524 MSGBO8: .ASCIZ /SOFTWARE TIMEOUT ON ANOTHER DRIVE/ 


045206 2526 000 
patyity 105 051122 051117 MSGBO6: .ASCIZ “ERROR OCCURRED DURING |/70 OPERATION" 


000 
st rod 106 061122 051117 MSGBOS: .ASCIZ “ERROR OCCURRED DURING NON-1/0 OPERATION" 


000 
046327 126 051516 043101 MSGBO4: .ASCIZ /UNSAFE OCCURRED/ 
O¥6338 020105 041517 052503 


dl 


S°o=R 
2 


000 
oxy MSGBO3: .ASCIZ /AUTOMATIC RECALIBRATE SEQUENCE OCCURRED/ 


: 

g 
2292999 

Re neets 


=f 
nm 
=) 
nw 
—_ 
uw 
- 
o 


By 


Pil 
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051122 


10% 
044040 
052117 
047520 


000 
pag MSGBO2: 


MSGB01: 
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.ASCIZ /ORIVE HAS NOT RESPONDED TO PORT REQUEST/ 


.ASCIZ DRIVE HAS BECOME NON-EXISTENT/ 


.SBTTL DATA HEADER (OT) MESSAGES 


DH1: 


DH2: 


DH3: 


DH10: 


DH 12: 


. ASCIZ 


.ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


ZERR PC 


ZERR PC 


/TEST 


/TEST 


ZRPCS1 


ZORIVE 


/TEST 


RPAS/ 


DRIVE RPAS RPDS1 RPER1 RPERZ 


ERR PC ADDRESS DATA/Z 


ERR PC ADDRESS GODATA S8DDATA/ 


ERR PC/ 


ERR PC/ 


ERR PC TST PC DRIVE CYLNOR TRACK 


RPER3/ 


SECTORZ 


SEQ 0176 


; 





READ/WRITE TES 
DATA 


75/6 _MEC 
27-JUL-78 09: 18 


r 


Seep RGEE 


£882 


2 oe? ot et 
=-O = —OvVveavrenscwnr-o 


= 
ER2 


R= 
88 


ee 
So 


.ASCIZ /GOCYL 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


GOSCTR BDCYL 


1 14% 
T MACY11 30A(1052) 27-JUL-78 09:24 PAGE 181 
HEADER (DT) MESSAGES 


BOTRK BDSCTR/ 


BDADR/ 


® 
RPDOS1 RPERi RPERZ 


CYLNDR TRACK 


CYLNDR RPCSi1 RPCS2~ RPDSi/ 


RPCC/ 





R82 
S38 a 
oF8285285 


8 


< 
» 


a 
33 


a ee 
BRa= 


ZR 
RR 


> a 
oD om 
fab ek 
oo 


Nunev 


SPST RSRBEP REE 


geeseseess 
ee er ae ee 
ae yey 


051040 


052123 
051105 
020040 


RPO4/5/6 MECHANICAL AND READ/WRITE TES 
27-JUL-78 09: 18 DATA 


001170 
034354 


041510 
041734 


001164 
034352 





DH4 1: .ASCIZ /TEST ERR PC 
DH4 2: .ASCIZ /TEST ERR PC 
DH43A: .ASCIZ ZRPER1 RPERZ 
DHY4A: .ASCIZ /RPCSi RPCS2 
DH44B: .ASCIZ /RPER1 RPERZ2 
DH45A: .ASCIZ /RPER1 RPERZ 
. EVEN 

.SBTTL DATA TABLE (DT) 

OT1: . WORD SERRPC. SREG3 
072: . WORD 

OT3: . WORD 

OT4: . WORD 

OTS: . WORD 


SERRPC, SREG1. SREGS. RPERRS. RPERRS+2, RPERRS+4, RPERRS+6 


STMPO, SERRPC. RD. ADR. RD. WRO 


TST PC 


TST PC 


RPER3/ 


RPOS1 


RPER3/ 


RPER3S 


J 14 
T MACY11 30A(1052) 27-JUL-78 09:24 PAGE 182 
HEADER (DT) MESSAGES 


RPCS1 


RPCA 
RPBA 


STMPO, SERRPC, WRT. ADR, WRT. WO. RD. WRO 


STMPO. SERRPC, SREG1, SREGS. RPERRS., RPERRS+2Z, RPERRS+4, RPERRS+6 





i 


CZR JAC RPO4/S/6 NMECHANI 

CZR JAC. P11 27-JUL-78 
9698 71 034 354 
9699 047172 001366 
9700 71 001166 
9701 047 001176 
9702 047210 001254 
9703 047216 001272 
9705 O47 001270 
9705 047226 001262 
9706 001176 
9707 047242 001254 
9708 047250 001272 
9709 047252 001124 
9710 7260 001120 
9711 047264 001176 
9712 047272 004204 
9713 047300 O04244 
9714 047308 001176 
9715 047312 001254 
9716 7320 001164 
9717 047326 001164 
9718 047330 001176 
9719 047336 001270 
9720 O4784 004216 
9721 O873%%6 004220 
9722 047364 004240 
9723 047360 001176 
9724 047366 001254 
9725 047370 001176 
9726 047376 001 
9727 O4740" 004216 
9728 047406 001176 
9729 047414 001 
9730 047422 004216 
9731 047424 O04 
9732 047432 001176 
9733 047440 001254 
9734 O47%46 001272 
9735 O474560 004204 
9736 O47456 004242 
9737 47464 004220 
9738 047472 001176 
9739 047500 001254 
9740 047506 001272 
9741 047610 004204 
9742 047516 004242 
9743 047524 004 
9744 047532 004206 
9745 
9746 
9747 
9748 047540 000001 
9749 047542 002 
9750 047543 
9751 
9752 047544 000001 
9753 047546 007 


\¢ 


ow ed oh a 
et ot oe [+ +] 
Coo 


ed et wae a eS a ae ee cet 


BSeeSSRR BSED S 


Roe 


g8 ssssgsss sess geese sF 
$ 
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READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 183 
DATA TABLE (DT) 


OT10: . WORD 
OTi1: . WORD 
OT12: . WORD 


OT12A: WORD 
OT13 . WORD 
DT13A: WORD 
OT17 . WORD 
DT21 . WORD 
OT21A: WORD 
DT23 . WORD 
DT23A: WORD 
OT41: . WORD 
DT42: . WORD 
OT43: . WORD 
DT43A: . WORD 
DT44: . WORD 
OT44A: . WORD 
OT44B: . WORD 
OT4S: . WORD 
OT4SA: . WORD 
OT4S5B: . WORD 





RH. ADR, SERRPC 

SREG2Z, SERRPC 

STMPO, SERRPC, SREGO. CHKORV. CYL. DS. TRK. DS. SEC. DS 
CYL. DS. TRK. DS, SEC. DS. CYL. RD. TRK. RD. SEC. RD 


STNPO, SERRPC, SREGO. CHKDRV, CYL. DS. TRK. OS. SEC. DS 


SGODAT, SBDDAT,. SREG4. SGDADR. SBDADR 
STMPO, SERRPC, CHKDORV. RP. REG. RP. REG+12Z. RP. REG+14. RP. REG+4O, RP. REG*42 


STMPO, SERRPC, SREGO, CHKDRV, CYL. DS, TRK. OS 
SREG1, SBODAT, SREGY, SREG1 
STMPO, SERRPC, CHKDRV, CYL. OS. RP. REG. RP. REG+10. RP. REG+12 


RP. REG+14, RP. REG+40, RP. REG+42, RP. REG+34. RP. REG+36 
STMPO, SERRPC, SREGO. CHKORV 
STMPO, SERRPC, SREGO. CHKORV, RP. REG. RP. REG+10. RP. REG+12 


STMPO. SERRPC. SREGO. CHKDRV. RP. REG. RP. REG+10. RP. REG+12 


RP. REG+14, RP. REG+4O, RP. REG+42 

STMPO, SERRPC, SREGO. CHKORV. CYL. DS. TRK. DS. SEC. DS 

RP. REG, RP. REG+10, RP. REG+12, RP. REG+36. RP. REG+34. RP. REG+06 
RP. REG+14, RP. REG+4O, RP. REG+42 

STMPO, SERRPC, SREGO, CHKORV. CYL. DS, TRK. DS. SEC. DS 

RP. REG. RP. REG+10. RP. REG+12. RP. REG+36. RP. REG+34., RP. REG+06 
RP. REG+14, RP. REG+40, RP. REG+42, RP. REG+2, RP. REG+4, RP. REG+22 


.SBTTL DATA FORMAT (OF) TABLE 


OF 1: . WORD 
. BYTE 
. BYTE 
OF 2: . WORD 
. BYTE 


+NUMBER OF DATA HEADERS 
+NUMBER OF WORDS IN DATA TABLE 
+ALL 3 NUMBERS ARE OCTAL 


N= ON 






9791 


PELULELLLLRPRPPE Ee 


- Pil 


047547 


ooo 
000001 
ooo 
000001 


DATA FORMAT (DF) TABLE 


OF 11: 


OF 12: 


OF 13: 


OF 14: 


OF 17: 


OF 21: 


OF 22: 


DF 23: 


. BYTE 


iia eoos “ On—- OW OW OF OC 
o o 


TRS Ep te eres 
RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACYI1 30A(1052) 27-JUL-78 09:24 PAGE 184 
27-JUL-78 09: 18 


;2 OH'S TO BE TYPED 
;? DATA WORDS FOLLOW TE 1ST DH 
0 ‘WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
12A ;ADDRESS OF 2ND DH 
> DATA WORDS FOLLOW THE 2ND DH 
;ALL WORDS ARE OCT 
0 
Hi 3A 
4 ;WORD 3 1S DECIMAL 
0 
5 
4 ;WORD 3 1S DECIMAL 
1 
D8 
0 
2 
6 
60 
OH21A 
14 
0 
4 
14 
5 
10 ;WORD 4 1S DECIMAL 
° 
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CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 185 


CZ2RJAC.P11 27 JUL-78 09: 18 DATA FORMAT (DF) TABLE SEQ 0181 
9810 047643 000 .BYTE 0 
9811 
9812 

13 047644 000001 OF41: .WORD 1 
9814 047646 004 BYTE 4 
3815 ON76N7 = 000 BYTE 0 
9817 047650 000001 OF42; .WORD 1 
9818 047652 007 “BYTE 7? 
9819 047653 000 BYTE 0 
9821 047654 000002 OF43:; .WORD 2 
9822 047656 007 BYTE 7 
9823 047657 ‘BYTE 0 
9824 047660 046700 WORD  OH43A 
9825 047662 003 BYTE 3 
9826 047663 000 BYTE 0 
9828 047664 000003 OF44: .WORD 3 
9829 047666 007 BYTE 7, 
9830 047667 160 "BYTE 16 
9831 047670 046726 “WORD DH44A 
9832 047672 BYTE 
9833 047673 BYTE 
9834 74 047003 "WORD DH44B 
9835 047676 003 BYTE 
9836 047677 000 BYTE 0 
9838 000003 OFYS: .WORD 3 
9839 047702 007 BYTE 7 
9840 160 BYTE 160 

1 047704 046726 WORD OH44A 
9842 047706 006 BYTE 
9843 047707 (000 BYTE 
9844 047710 047031 WORD  DH4SA 
9845 047712 006 BYTE 
9846 047713 000 BYTE 0 
9847 
9848 _ EVEN 
9849 047714 BUFFER=. 

9851 047714 OOSO1S 041412 051132 TITLE: ASCII <CRD<LF><LF>/CZRJAC/<CR><LF> 
9052 047722 040512 006503 012 
9853 047727 122 030120 027464 /ASCIZ @RPO4/S/6 MECHANICAL & READ-WRITE TESTA<CR><LF><LF> 

9854 047738 02 020066 042515 
9055 047742 084103 087101 041511 
9856 047760 046101 023080 
9857 047756 026508 051127 
ovS8 052111 020106 042524 
9659 £3 006015 
9800 04 752% O LOAORV: . ASCII <CR><LF>/TO TEST DRIVE © REPLACE THE ‘XXDP' PACK ON DRIVE O/<CR><LFD 
9001 060006 081608 02012 061104 
9.62 % 053111 020106 
9863 050022 042622 046120 041501 
9864 050030 020105 044124 020105 
9865 050036 054047 042130 023520 


a) 


: a8 
RAESESESEREESPEPEREREREEEPEEEEEPE EEE EL ELLE CEREEERREE Ig ger 


N14 
RPO4S/S/6 MECHANICAL AND READ/WRITE a MACY11 et 1052) 27-JUL-78 09:24 PAGE 186 
Pil 27-JUL-78 09: 18 DATA rT + Pope 


050040 
087117 
0% 2526 
084527 
047516 
050040 
041440 
046440 
020131 
048524 


026060 
051080 


99 

g= 

98 
i 
: 
wm 


PwHn 


Sk 
om 
rt] 
ean~ 


Re 
ee 


041501 
0% 2040 


82 
=2s 
B39 


FEBRIS9999 
[Se ae 
ReRsceRe 


000004 
000006 


000006 
050340 
020000 


050370 


000004 


FORMAT (OF) TABLE 


ASCII /WITH ANOTHER PACK. CLEAR MEMORY LOCATION 40. AND RESTART/<CR><LF> 


.ASCIZ /THE PROGRAM/<CR><LF> 


NOLOAD: .ASCIZ <CR><LF>/SYSTEM HAS 16K MEMORY. ‘XXDP" LOADER WILL BE OVERWRITTEN/<CR><L 


. EVEN 
.SBTTL ROUTINE TO SIZE MEMORY 
se VOR RRR RNR TREE I MORO ET 


, 


is gsr PC. $S12ZE 
‘ SSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


$SIZE: MoV RO. - (SP) +, SAVE RO ON THE STACK 
MOV R1.-(SP) +; SAVE R1 ON THE STACK 
MoV @RERRVEC.-<SP) ;; SAVE PRESENT ERROR VECTOR PS & PC 
MoV @#ERRVEC+2, -( SP) 
MoV SP, RO +;SAVE THE STACK POINTER 

++ SET THE ERRVEC PS TO THE PRESENT PS 
TRAP +;PUSH OLD PSW AND PC ON STACK 
MoV (SP +, @WERRVEC+2 +; SAVE THE PSW IN Q#ERRVEC+2 
nov #2. Q@BERRVEC ++SET FOR TIMEOUT 


mov #20000, R1 77 FIRST ADDRESS 

1$ TST (R1) 72 TEST THIS ADORESS 
TST (R1)+ ++ STEP TO NEXT AODRESS 
BR 1$ 72 TRY ANOTHER 

23: SUB #2.R1 +2 DROP 


ACK 
RO. SP ++RESTORE THE STACK 
MOV (SP )+, Q#ERRVEC+2 > ;RESTORE ERROR VECTOR 
MOV (SP )+, @RERRVEC 
MOV Ri, SLSTAD +; LAST ADDRESS 


BEEPREBELSS SELL ELS PRES het 


050362 
050364 
050366 
050370 


37 


Pa aa 
as Fo2#an wEPSERResoFs8 


27-JUL-78 09: 


012601 
012600 
000207 
000000 


001226 
001226 


001366 
050560 


050602 
031520 


050571 


050602 
031520 


000004 
050526 
130662 
000004 


001366 
034516 


000004 


Stata NE CHAN ICAL - READ/WRITE TEST MACY11 30A(1052) 


ROUTINE TO SIZE MEMORY 


Mov 


RTS 
SLSTAD: . WORD 


(SP )+, R1 
(SP )+, RO 


PC 
0 


8 15 
27-JUL-78 09:24 PAGE 187 


+7 RESTORE Ri 


++RESTORE RO 
+; CONTRINS THE LAST ADDRESS 


+; SESSTAAAATAA ATA ATA AALAATAA AAA ALATA ALATA ATLA TT TTT Tk 
. SBTTL GETAOR - GET BUS ADORESS AND VECTOR ADDRESS 

+ THIS ROUTINE IS USED TO ENSURE THE BUS ADDRESS 

+OF THE RH11/RPO" IS SETUP TO READ THE PROPER VALUE. 


+1T th Hcl 


+ REQUIF 


JSR 


RE TURN 


GETADR: TST 


1$: MOV 


25: MoV 


34: MoV 
7$: MoV 


8$: MoV 


PC, a#GETAOR 
@#BUSADR 
7$ 


@#BUSAOR 
#RH AOR, RO 
@MRPCS1,R3 


RY, (RO)+ 
oni oe 


(RO)+, (R1)+ 


PC 

R1, SRERRVEC 
(SP )+, (SP)+ 
10 

842 


1$ 
@#ORVSEL 
@#SEOPCT 
on SEOP 


READ THE ADDRESS FROM THE TTY IF 
tee ty This ROUTINE DESTROYS RO-RY 


+ INPUT FROM TTY REQUESTED? 

>NO--BR RANCH 

+ YES--CLEAR THE REQUEST FLAG 
RODRESS 


PRESENT RPCS1 ADDRESS 
+CLEAR INPUT BUFFER 
+GET NEW RPCS1 

; COMMA 


+PERIOD 

+ DOUBLE PERIOD 

+ SAVE Pe RPCS1 

PRESENT RH11 VECTOR ADDRESS 
+ CLEAR INPUT BUFFER 

+GET NEW RHVEC 

, COMMA 


PERIOD 
[DOUBLE PERIOD 
; SAVE NeW RHVEC 


+ SAVE UT 
;SAVE THE ERROR VECTOR 
+ SETUP FOR TRAP 
> CHECK FOR RH11/RPO4 
+RESTORE ERROR VECTOR 
FIRST ADDRESS OF NEW PARAMETERS 
+FIRST ADDRESS OF WHERE TO PUT THEM 
BUS ADORESS 
+ VECTOR ADDRESS 


RETURN 
/ RESTORE ERROR VECTOR 


+ CLEAN OFF THE STACK 
;REPORT THE ERR 
+ 1S THERE A MONITOR? 


TOR? 
+NO--GO ASK FOR ADDRESS 
he ye DRIVES SELECTED 
NO PASSES 
+GO TO END OF PROGRAM 


SEQ 0183 





C 15 
JAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 188 
Pil 27-JUL-78 09: 18 GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 


050560 005015 050122 051503 MRPCS1: .ASCIZ <CR><LF>/RPCS1=/ 
050571 1 oeote O53110 MRHVEC: .ASCIZ <CR><LF>/RHVEC=/ 


050576 
eTTTTTTTTTTTTTTTTTTT TT TTT TTT ttt ttt ht 
;ROUTINE TO CLEAR INPUT BUFFER FOR NEW CS1 AND VEC 
CLRBF: RO. -(SP) ;SAVE RO 
HO 


R1,-(SP) 

000010 #10,R1 COUNT 10 LOCATIONS 

022522 aSTTYIN.RO START AOR OF INPUT BUF 
1$: — 


1$ 
(SP )+,R1 
ated ;RESTORE RO 


a8 
® 


9978 
9979 
9980 
9981 
9982 
9983 
9984 
9985 
9986 
9987 
9988 
9989 
9990 
9991 
9992 
9993 
99M 
9995 
9996 





_ 
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CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 190 


CZR JAC. Pil 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0185 

RBS = 000200 18078 

ACL = Q00040 18418 18508 

ACTORY O34434 79598 8238% 8289% 8602% 8611% 8839 

ACTSTR O34435 79658 8841% 88562 

ACU = 100000 1 

ROE = 001000 17138 

ATA = 100000 

ATABIT 034504 3286 7305 7311 80318 8204 8301 8406 8765 8784 8792 8809 8915 

ATO = 000001 17338 

ATi = 000002 17348 

AT2 = 000004 17358 

AT3 = 000010 17368 

ATY = 17378 

ATS = 000040 17388 

ATé = 000100 17398 

AT? = 200 17408 

Ai6 = 000400 16318 

Ai7 == 001000 16328 

BAI = 000010 16498 

BITS 001424 20148 3447 3481 3519 3562 3602 3682 3725 3775 3875 4032 4098 4202 
4292 4390 4504 4575 4704 4750 4824 4913 7372 7403 7420 7473 7647 

BITO = 000001 16068 

81TOO = 000001 15968 1606 2014 2030 3257 3274 3296 3349 6119 

81T01 = 000002 15958 1605 2015 2031 3260 6445 6473 8281 8528 

B1TOZ2 = CO0004 1604 2016 2032 6182 6445 6476 

BITOZ = 000010 15938 1603 2017 033 6482 8724 9037 

B1TOY = 000020 15928 1602 2018 2034 6479 3759 

BITOS = 000040 15918 1601 2019 2035 3918 3934 4010 4140 4154 4169 4174 4239 4263 
rt aoe 4345 4362 4 367 4425 4443 4460 4465 6482 6592 8121 8548 

81TO6 = 000100 15908 1600 2020 2036 6485 8213 8272 8346 8637 9098 

81T07 = 000200 15898 1599 2021 2037 8213 8480 8623 8724 8739 8759 8788 9070 

BITOS = 00 15888 1598 2022 6473 8213 8902 

Hw = 001000 aos 1597 2023 5040 5665 6488 8887 

= 

81T10 = 002000 15868 2024 5024 6131 6445 6476 7666 8530 

BITi1 = 1585@ 2025 5672 6476 8168 8305 8323 8499 8810 

B1T12 = 010000 1584@ 2026 6445 6479 8163 8195 8213 8283 8317 8495 8514 8526 8539 
8749 8751 8975 9032 9099 

81T13 = 020000 15838 2027 5031 6445 6473 8266 8697 8378 

B1T14 = 040000 15828 2028 3929 4135 4149 4234 4322 4340 4420 44 38 5647 6373 6445 
6479 8278 8314 8684 8826 8942 8987 8991 9096 

B1T15 = 100000 15818 2029 6637 6638 8266 8278 8281 8283 8314 8317 8499 8528 8530 
8637 8724 8739 8749 8759 8826 8887 8902 8942 8949 

BITZ2 = 000004 16048 8949 

BIT3 = 000010 16038 

81TY = 000020 16028 

81TS = OO0OK0 16018 

81T6 = 000100 8307 

81T7 = 000200 15998 

81T8 = 000400 15988 

81T9 = 001000 15978 

BPTVEC= 000014 16138 

BUFFER= 047714 2671 2695 2719 2743 3895 4522 4537 4550 4593 4603 4617 4738 4840 


4864 4872 4880 4886 4894 6556% 6557 6559 6561 6562 6563 6636 6673 
6816 6835 6836 6860 6949 6981 7024 7066 7083 7084 7101 98498 


—s- 





CZRJAC RPO4/S/6 frp 


CZR JAC. P1i 

001226 
001252 
025034 
025146 
025336 
001254 


10 
001270 


= 

£ 

= 000001 
DOISP = 177570 
DECSEC 027662 
DECSK 007066 
DELTA 001350 


3984% 


6307% 
9732 


3349 
6512 


3985 


7816 
4212 


3987% 


7826 
4 302 


6386% 


4122 
7212 


3996 


36953 


6228 
3631 
62568 


9706 


8405 
8627 


7769 


4400 


7286 


9368 


6412% 


4178 
7213% 
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READ/WRITE TEST MACY11 30A(1052) 27-JUL-78 09:24 PAGE 191 
CROSS REFERENCE TABLE -- USER SYMBOLS 


7780 


6049% 


9283 
9370 


6566% 


4842 


37898 3902% 
3653 3701 

9714 9718 

8423 8429 

9082 

7831 

6051% 6057% 
9289 9308 

9372 9851 

6604%  6923% 
6064 6074 


SEQ 0186 
4049S 86445148 
3703 3747 
9723 9725 


8433 


9315 
9853 


7037% 


6084 
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CZR JAC. Pil 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0187 
OFLT 001664 21068 #6108 
OF 1 047540 2832 97488 
OF 10 7560 28% 97648 
OF 11 047564 2906 97688 
OF 12 047570 2919 97728 
OF 13 7600 2932 2953 97798 
OF 14 047610 2940 2961 97868 
OF 17 047614 2971 2981 97908 
OF 2 7544 2842 2872 97528 
OF 21 047620 296% 97948 
OF 22 047630 3002 98018 
OF 23 047634 3014 3026 98058 
OF 3 047550 2852 97568 
OF 4 047554 2862 97608 
OF 41 04 7644 3059 98138 
OF 42 047650 3069 98178 
DF 43 04 7654 3081 98218 
OF ay 047664 9 
OF 4S 047700 3141 98388 
OH 045525 2830 95478 
OH10 045734 2 95718 
OH11 045753 2904 95748 
DH12 045772 2917 2930 2951 3094 3109 3124 95778 
DH12A 046061 95878 9775 
OH13A 046140 95958 9782 
DH17 6 2969 2979 96028 
045542 2840 2870 95508 
2 b 96138 
DH21A 046362 96218 9797 
2 046421 30 96278 
DH23A 6507 96378 9 
045630 2850 95598 
045565 2860 S648 
OH4 1 046554 3057 96448 
OH4 2 046612 3067 3079 96498 
DH43A 046700 96588 9824 
DH44A 046726 96628 9831 9841 
DHS 4B 7003 96 9834 
DOH4SA 86047031 96748 9844 
01 z 16878 
DISPLA 001142 19198 3168% 3176% 3454e% 3488x 3526% 3569% 3609% 3689% 3732k 3782% 


=z 1 16618 
OL64 = 000020 1 
= 000001 17238 
DORT! 027054 3916 4129 4227 4315 4413 66238 
OPB.A 004104 33428 0 «-3348K | 3351k = =—3352K 0 354K | =—8457K | O3786K = 3BONK 3811 3887% 
3920 3921 3931 3992% 3999% 4001 4003 4007 4925 4926% 4930% 
6229 6233 6234 6235 6236 6244 6570% 
OP8.6 004124 26908 3343s 3458s 3459% 34e0k 3491R = 8=63493R 8 =63495k | =60530k «605 31k = 333k 
35418 3546e 3547 573% 8 3574% 576% $583k 36i3se 364k 3624% 36308 
36933 4 8=96369% 37008 3702% 37 37378) «= 3746R) = 3748R = 3750%) = 3752k 37548 
37878 3792% 3802% 3831% 3832 3834% 4YOUSk 4O4SE 4O47k 4058R 
6214% 62 62 6264 66 ? 6285 


58 60 6265 62 626 6279 6282 
OPB.C 004144 27148 3344e 3492%) 3494K | «63496k | =64O4NR | =O4O4GR «=O ONBK | =4OS4R) = 4055 4057% 
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CZ2R JAC. P11 27-JUL-78 O09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0188 
6301 6303 6307 6308 6309 6310 6322 6325 6328 

OPINT 034410 79198 8132 8135 82213 8248 8668 8693 8816 88182 8879 8917 8928 89368 

DPR = 000400 16938 

DPRQS 034420 79328 868254 8340s 8671 8830% 8881 8919 8930 89453 

DRIVES 043233 3297 93088 

ORQ = 004000 17568 

ORVACT 034360 39708 78768 8262 8441s 8488s 8507% 8518 8533% 86163 8689 8722 87532 8760% 
8773 8783% 8890% 8896 8903% 

ORVCAL 025526 4526 4530 4535 4545 4552 4598 4609 4625 4631 4771 4777 4787 4849 
4869 4875 4883 4889 4897 63458 6349 

ORVCLR= 000111 18698 3963 

DRVCL1 025546 3976 63508 6351 

ORVINT O34746 8123 81578 8250 8309 8800 8819 8894 

ORVMSK 001256 19628 3327% 3328 3332% 3340 

ORVOK 0061 3329 33368 

DRVQUE 042616 8257 8270 92068 

DRVSEL 001232 19538 32818 3286% 3296% 3300 3323 3328 33408 64952 7282% 73058 7311% 

ORVSTA 034370 3240 3284 3337 78908 881138 81148 81158 8116% 8126% 8158% 81678 8210% 
Seen Sette 8276 8311 1 8442% 8551% 8674 8682 695 87472 8687548 

ea 034400 re 3257 3260 6182 79068 §88159% 8174% 8179% 8184% 8189% 8279 85523 

mB 
= 177570 15278 1918 3167 

OTROPB 004164 27388 «=63345% 3820% 3823 3826% 3828% J3888% 3889% 3891% 389  3895% 39538 
3959% 3961% 3967% 8 3974 4001 4O003% 4138 4141 4152 4155 
4170 4175 42228 84223% 4229 4237 4240 42472 84248 4252% 4253 4261 
4269 4325 43 4343 4346 4360 4363 4 4426 4441 4444 


36 
6407 6412 6413 6414 6415 6423 6593% 6594% 6595% 6598 6600 6604 
6607 6923 6924 6950 6982 7037 7038 7039 7188% 7189% 7190% 


OTE = 010000 17168 

OTSY = 000200 17298 

OTUW 034502 3969% 80258 8109 8329 8385% 8508 8511% 8521 8534 8536% 8545% 8605 
8884 8899 8910% 8921 8985 

OTOO = 000001 17478 

OT01 = 000002 17488 

OTO02 = 000004 17498 

OTO3 = 000010 17 

OTe = 17518 

OT0S = 000040 17528 

OT06 = 000100 17538 

OT07 = 000200 17546 

OTO8 = 000400 17558 

oT1 047106 2831 96888 

DT10 047172 96998 

OT11 047176 2905 97008 

0T12 047202 2918 97018 

OT12A 8047220 97048 


OT13 047234 2931 2952 97068 
OT1i3A 047252 2939 2960 97098 
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CZR JAC. P11 27-JUL-78 O09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0189 
OT17 047264 2970 2980 97118 
012 047112 2841 2371 96898 
047304 2993 97148 
DT21A 7320 3001 97168 
047330 3013 3025 97188 
OT23A 48047346 97218 
OT3 047130 2 96928 
OT4 047140 2861 
OT41 047360 97238 
OT42 047370 3068 97258 
OT43 047406 30 97288 
OT43A 8047424 97318 
DT44 047432 97328 
DT4S4A 74 97358 
OT44B 047464 97378 
OT4S 047472 3110 3125 97388 
OT4SA 047510 97418 
OT4S8 7524 97438 
OTS 047152 96968 
OVA = 004000 16818 
ECH = 000100 17108 
EC! = 004000 18248 
EMPTYQ 042576 8505 8550 8638 8761 8828 8950 91918 
EMNTVEC= 000030 16168 3152% 3153% 
ent O4404S 2829 93928 
Em10 044273 2893 94188 
enti 044 351 2903 94268 
EM12 044406 2916 94318 
EM13 044433 2929 2950 2991 94 358 
Em17 044460 2968 94398 
ENZ 044110 8 93988 
EN20 044512 2978 9444s 
EN23 1 3011 94518 
EN24 044610 3023 94558 
EN3 044146 2849 94038 
En4 044203 2859 94088 
en4i 044650 3056 3066 3078 3093 3108 94618 
EN46 044674 3123 94658 
Ens 044237 2869 94138 
ERINDX 026250 6237 6268 6311 6360 6390 6416 64678 6608 
ERR = 040000 16998 
ERRVEC= 000004 10098 3165 3166% 3177% 5652 5653% 5655% 5658% 6018% 6019% 6024% 6044 9906 
9907 99113 9912% 9919% 9920% 9960 9961% 9963% 9969% 
ERR.CT 001364 19958 3381 4513 4584 4713 4833 6425 6905 6936 7051 7110 
ES. SAV 042756 8653 8704 8708 8983 9043 92608 
EXITO 006514 3461 34668 
EXIT1 006672 3497 35028 
EXIT10 012022 3902 3982 4013 40158 
EXIT11 012242 4049 40618 
EX!IT12 013000 4114 4119 4182 41868 
EXITiZ 013444 4218 4220 42748 
EXIT1% 014162 4308 4310 43738 
EXIT1S 014700 4406 4408 44718 
EXIT16 015276 4514 45578 
EXIT17 015716 4585 46378 


0 
Ex!IT2 007110 3532 35498 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


CZR JAC. P11 
EXIT20 016436 
ExXiT2Z1 017214 
ExiT22 017 
ExiT3 7 
EXIT’ 007672 
EXITS 010072 
EXITé 010336 
EXIT? 010716 
XTi = 000001 
ExT10 = 000010 
EXT2 = 000002 
—xT20 = 000020 
EXT4 = 000004 
EXT4O0 = 000040 
FC 001510 
FEN = 000200 
FER = 00 
FILBUF 027 
FILRAN 030770 
FNT22 = O1 
FS 001524 
FT 001516 
Fi = 000002 
F2 = 000004 
F3 = 000010 
F4 = 
FS = 00004 
GETADR 050372 
GETWUM 031520 
GETREG= 000141 
GETREQ 042672 
GETSWR 031426 
GNS «= S8323% 
GO = 000001 
GRv = 000010 
GTSWR = 104406 
GTTST1 032014 
GTTST2 032100 
GTTST3 032442 
GTTSTY O32444 
GTTSTS 
GTTST6é 032614 
GT. PRn 1656 
GT. PRi 031660 
ga 032010 
= 
1 ss 002000 
HCRC = 000400 
HT = 000011 
1AE = 002000 
ic 001514 


27-JUL-78 09: 18 


4748 47948 
48988 


35888 
36658 
3707 37108 
3745 37608 
3833 38358 


4737 

3459 3493 3531 
4519 4752 

99398 


72318 9946 9954 
8523 8678 8714 


4950 4956 4964 
5777 5778 5779 


73158 7364 7377 
7428 


7339 7343 7347 
7374 7408 74118 


7290 7291 7292 
7327 7444 7453 


3538 3546 3580 


8775 


4981 
5780 


7388 
7351 


7293 
7646 


3640 


3620 
4047 
7183 


3613 
3614 


8825 


5096 
7205 


7391 
74108 


7294 


3662 


3630 
4048 


3693 
3694 


8886 


5113 
7285 


7417 


7300 


3704 


3663 
4057 


3736 
3737 


8901 


5768 
7318 


7424 


7301 


3705 


3696 
4115 


4043 
3785 


8939 


5769 
7477 


7433 


3758 


3708 
4222 


yOuy 
3834 


8946 


5770 
7583 


7439 


3893 


3739 
4335 


4116 
3889 


92278 
5771 


7448 


3980 


3792 
4433 


4591 
4O4S 


5772 


7465 


3985 


3793 
4518 


5774 


3987 


CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 
CROSS REFERENCE TABLE -- 


CZR JAC. Pil 
1€ = 000100 
ILF = 000001 
ILR s 
INCCYL 027632 
INCSK 00 
INCTRK 027602 
1OTVEC= 
R = 000100 
ISR 037400 
T 001522 
ITEM1 004546 
= 004 
KIPARO= B255R% 
037242 
LACNT O34446 
L 001512 


LOCMD 38 024770 
LF = 000012 


LKV 001406 
LORORY O05 
LOOFLT 024 


LP. AVL 024034 
Ls 001526 
LST = 002000 
LT 001520 
MABOVE 043763 
MBELON 043734 
MLK = 
PE = 
MCPEMX 034514 
s 001000 
minX = 
034530 
s 020000 
s 010000 
wre s 000400 
s 000020 
060571 
mPcsi 0650560 
s 000020 
043720 
area] 045467 


27-JUL-78 09: 18 


4058 


6788 


9013 


4370 


6021% 


6769 


4468 


3541 
4055 


5223 
9355 
9980 


6087% 


6772 
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USER SYMBOLS 

6596 8118 

3586 3641 

4059 4248 

5229 7206 

9358 9364 

3687 3730 

4918 61598 
64418 

6774 


86028 


3643 
4317 


7286 
9368 


3780 


3652 
4415 


9283 
9370 


3880 


3697 
4756 


9289 
9372 


4037 


3706 
4854 


9308 
9851 


4103 


3740 
4925 


9315 
9853 


4207 


SEQ 0191 


3793 
6786 


9325 
9860 


4297 


Pil 


an 
= DOM 2 o@? ot ot oe 
zxVVFCwnN-oO 


044724 
043012 
043016 
043711 
3702 
4027 
044012 
MSG.CS 043052 
"mSG.EQ@ 043050 
MSG.FC 043004 
MSG.FS 043036 
mSG.FT 043025 
mSG.1C 043022 
MSG. 1T 043033 
mSG.LC 043007 
MSG.LS 043041 
MmSG.LT 043030 
MSG.PA 043044 
mSG.R 043002 
mSG.SP 044042 
043727 
MSG10A 3454 
"SG108 3523 
MSG11A 043540 
MSG118 043606 
MSG12A 043623 
SG128 043665 
MSG7 04 3422 
MSTCK = 000010 
mR = OOOO4K0 
MXOLTA 034526 
mF 2s 001000 
MXLACT 524 
001362 
MX re §32 
NBA Cs 
NC 1 001532 
NC2 001534 
NEO == 010000 
NEM §=©6s 004000 
NHS §6s 002000 
NOCLOK 043273 
WOLORD 050176 
NO re 
NOOP 


= 000101 
MOTPRS 043151 


27-JUL-78 09: 1 


2797 
27% 


RPO4/5/6 MECHANICAL - READ/WRITE TEST MACY11 30A(1052) 


92978 





7588 92828 

3255 3361 5108 5140 5147 5154 
6726 6737 6749 93748 

93338 

3659 

3980% 3981 3984 3992 


15 
"29 JUL- 78 09:24 PAGE 197 
CROSS REFERENCE TABLE -- USER SYMBOLS 


6713 


6729 


6750 


7505 


SEQ 0192 


7545 
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CZR JAC. Pil 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0193 
043176 3246 93028 
NOTSAF 043166 3252 93008 
21 18448 S548 
OFFSET= 000115 18718 
OFREY = 18228 
OF 100 = 18188 
OF 200 = 000010 18198 
OF25 = 000001 18168 
OF400 = 000020 & 
OFSO = 000002 18178 
OF 800 = 000040 18218 
OPE = 020000 18528 
oP! = 020000 17178 
OPNFLG 001240 19558 7330% 7331% 7420% 7429 7431 7440 7442 7449 7451 7473 
OPNPAT 033222 7504 7545@ 7554 7563 7566 7570 
OF WP EN 3020 7491 7555 7557 7576 
032646 7430 7432 7441 7443 7450 7452 74578 
OPMDS O33344 75788 7612 
OPM. CT 032652 74598 74613 7462 7466 7468 7479 
OPN. Ni 033556 7541 7572 76358 
033562 7528 756 7623 76368 
OPN. X1 4033574 7542 7573 76398 
OPN. X2 033600 7533 6 76408 
OPN. 1 032656 74618 7474 7638 
OPN.2 032700 7460 7463 74668 
OPT 035576 8264 82998 8633 8793 8831 
oR = 000200 16538 
PACK = 000123 18748 
= 000010 17078 
PAT 001530 2051# 4750 
PAT. PT OO3044 23738 6951 6984 7027 
PATO 003104 2373 23928 6115 7579 7628 
PATI 003144 2374 24098 
PATIO 3604 2383 25628 
PAT11 OO3644 2384 25798 
PAT12 003704 2385 25 
PAT13 003744 2386 26138 
PAT14  OO04004 2387 26308 
PATI OO4044 2388 26478 
003204 2375 24268 
PATS 003244 2376 24438 
a 3304 2377 24 
PAYS OO3I44 2378 24778 
PATE 3404 2379 
7 OOT444 2380 25118 
PATS 3504 2381 6114 
PAT? 003544 2382 25458 6117 
PGE « 16568 
PGN §6= 001000 16948 
PIP os 16988 
PiIRQ = 177772 15268 
PIRQVEs 0 16208 
PKG 001402 20048 4130R 4144R 4228% 4316k 43BKKR 4Y414K 4432K 8 6078% 6540% 
PKC 001404 20058 6656 6658 6659 6663 6665 6666 6670 6675 
PKCS 001400 20038 41i31R 4134s 4146x% 4148k 4162% 4231% 4233% 4256% 4319% 4321x% 4337% 43I9E 
4355% 4417K 4Y419R 4435R = =6«4437K 0 «6«4453% 66050 6079% 6541% 
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CZ2R JAC. P11 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS 


PKY 001374 20028 43910 3911 41288 42268 4314S 44128 60762 60778 
PLU = 020000 1 18128 
POPQUE 042714 8313 8B 479 8787—s«92428 
PRN 001504 20418 6168 61728 61858 61882 7487 749% 7651 
PRILNT 001606 20788 3821 3954 4555 4720 4731 61218 61228 61258 
6822 6901 7067 7153 7503 7536 
PRIMISG 001636 20928 7506 
PRNPT 001536 20568 6128 6167 7485 7652 
PRNO 002330 205 21618 6109 
PRNi 002344 2057 21698 
PRN10 002544 2064 22478 
PRNI1 2564 2065 22578 
PRN1Z 002606 2066 22688 
PRNI13 002622 2067 22768 
PRNI4 002636 22848 
PRNIS 002652 2069 22928 
PRIIG 2666 2070 2 
PRNi? 002700 2071 23078 
2372 2058 21828 
002712 2072 «23148 
PRN21 4 2073 «23298 
PRNZZ 2074 23378 
PRN3 002414 2059 21938 
PRIM 002436 2 
PRNS 002460 2061 22158 
062502 2062 22268 
PRN? 002524 2063 22378 
PRO = 000000 15438 
PRi = OO0040 15448 
PR2 = 000100 15458 
PR3 = 000140 15468 
PRY is 15478 
PRS = 000240 15488 
S 
PR? == 000340 15508 3228 3906 3928 
PSs = 177776 15238 1524  3218% 3228% 3269% 3906% 3923% 3928" 3975% 
6536 557k G5NSK 658K 8101 B102HB1S1X B139K 8236 
PSEL = 002000 16338 
PSU os 1 18388 
P = 177776 15248 
PTRNIS 002742 23268 
PURVECs 16158 
QOCNT 042226 91088 9167 9191% 9206  9208% 9228 92428 
QORvO 042320 9119 9130 9139 91518 
QORv1 042340 9120 9131 9140 91528 
QORV2 042360 9121 9132 9141 91538 
GORv3 042400 9122 9133 9142 91548 
Qorve 042420 9123 9134 9143 91558 
QORVE 042440 9124 9135 9144 91568 
QORVE 042460 9125 9136 9145 91578 
v7 0426500 9126 9137 9146 91588 
QINPT 042236 91198 9193 92108 92118 9212 9214% 
042256 91308 91938 9231 9244  9245x 9246 92488 
QSTART 042276 91398 9173 9178 9214 924 
T 042300 91408 9212 9246 


6538 


6126% 


4163% 
8Z37% 


6539% 


6142 


4257% 
8290% 


65448 


6144 


4 356% 
8300 


SEQ 0194 


6804 


44548 
8349% 
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CZR JAC. P11 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOL 

QTERN = 042520 9147 91598 

RAMADR 031244 4860 4870 4884 71478 

RAMCK 031012 4876 4890 70818 

RAMPAT 031210 4866 7068 7088 71298 

eau == 000020 18046 

ROCHR = 104410 5576 57778 

ROLIN = 104411 57788 4867237 7287 7320 7514 7551 7591 

ROY 3s 16308 

R0.ADR 041510 89678 89683 89708 9692 

R0.RP 041464 8170 8199 8205 8427 8451 8465 8569 8583 8625 8648 8716 
8874 8923 89658 9020 9034 9040 9074 

RO. RP1 041506 89698 8999 

RD. RP2 041632 89653 89988 

RO.RP3 041636 8976 8990 90008 

RO. RPS 041642 1 90028 

R0.WRD 041512 89718 8972 9692 9694 

RERD = 000171 1 4534 4786 4871 4885 

000173 18818 3787 6211 6212 6282 632 

READIN= 000121 18738 

REC = 000! 1 3354 3457 6570 6595 

RELERS= 000113 18708 

SREG= 104413 4142 4156 4171 4241 4265 4329 4347 4 364 4427 444s 4462 5156 57808 


5840 6639 6824 6847 6909 6970 7021 7312 7464 7622 7626 7645 7668 


RESTAR 006102 33 3341 4993 

RESVEC= 000010 16108 

RHVEC 001370 20018 

RH. ADR 001366 20008 9699 9942 9962 9964 

rem == OOO004 17068 

RPROR 034516 3788 3900 6591 sO4se 8120 8243 8367 8387 8408 8567 8604 8872 8967 
8973 8977 8993 9026 9030 9093 9965 

RPRS = 000016 80738 8204% 8646 87653 87928 8809% 8914 

RPBA os 39653 ‘ 

RPCA = OOO0S4 39208 8641158) 642298) «643178 «604335 | 6044ISE | =60YN33R | =606618k 869680808 §=6—8 379 8391 8422 

RPCC = 000036 80816 

RPCS1 = 000000 39228) «= 396380 3974R OO 4S1BE = O43JER «6OU4IGR «6044 INR = B0G6R =8162% = 8 168 8193 8305 8321 
tty 8404 8446 8466 8477 84 8 8626 8649 8701 8733 8770 8924 

RPCS2 = 000010 38118 «639188 3=39198) = 3934R = 935k | =0IHHR «64O1O0R «=64O11R «=6414OR «=6414IR «=6041SHR | O4ISSE 41698 


81218 81613 8163 82563 8368% 8388% s8409% 8495 8514 5 8539 85482 
86243 87153 87953 808% 8873% 8889% 8974 9031 9064% 9070 « 
Ao = 000006 noses 41188 6617% 6801 80698 375 8400 8415 
< 
RPOS1 = 000012 3924 3929 4149 4234 4322 4340 4420 4438 80718 8200 8307 8717 
8742 8796 8875 
RPOT = 000026 80778 8171 
RPEC1 = 000044 80848 
RPECZ = OO0D46 s0sse¢ 9078 
RPERRS 034350 78686 38=— 8104 8684 8687 8697 8796% 8797% 8798% 8799% 9689 9696 
RPER1 = 000014 6274 6276 6317 6319 80728 8206 8727 8797 9035 
RPERZ = COOO40 80828 8798 
RPERS = 000042 80838 
RPINIT O34534 3222 81008 
* 3812 3945 80748 8584 
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CZR JAC. Pil 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0196 
RPrm = 000024 80768 

RPOF = 000032 80798 8197 8428 8432 8452 8456 

RPSN = 000030 80788 

RPT 001506 20428 3455 3489 3527 3570 3610 3690 3733 3783 3883 4040 4106 4210 


4 300 4398 4512 4583 4712 4832 4921 7510 7543% 867548 75748) =676353 = 76398 
RPTAR 040736 6092 88398 


RPVEC 034520 tt tS 41298 8641778 42278 48642718 «8943158 43708 «864413e | 64468s 665908) «6804N9e = 8117 | 

RPMC §=6= 000002 39643 80678 

RP.REG 004204 2678 2702 2726 2750 27668 3364 6274 6276 6317 6319 6373 6801 9711 
9718 9721 9725 9728 9731 9735 9737 9741 9743 

RPOY 035304 6226 6257 6300 6347 6379 6398 6404 6597 82368 

RPONB 38043214 3256 93058 

RP 3221 3259 93068 

RP 3 3262 93078 

RSTRT1 006046 3319 3321 33238 3333 

RSTRTZ 33288 8633 

RTC =.= 000117 18728 

SAVCSH 001222 194% 3272 3276% 72128 

SAVEFG 034456 32233 8679998 §=— 8481 86 8789 

SAVREG= 104412 4137 4151 4166 4236 4260 4324 4342 4359 4422 4440 4457 5065 57798 
5814 6630 6814 6833 6857 6948 6980 7281 7457 7577 7650 8100 8239 
8299 8513 8603 8842 9060 9166 

sc 7604 8609 8634 8636 8642 86468 

SCTRWC= 177400 1888@ 4542 4592 4856 

sci. = 000100 17698 

sci0 = 001000 17728 

Sscit 0404 36 686 8723 87808 

$c12 680 8691 87958 

Sci3 040576 8670 8673 88058 

$¢c2_ = 000200 17708 

$¢20 = 002000 17738 

sc3 037654 86618 8665 

sc4 037660 86638 8694 8706 8710 8758 8772 8779 8794 8832 

scs 037672 8662 86688 

sce 0072 8690 87118 

SC6A 040202 8688 87358 

Sc? 040330 8725 8738 8740 8750 87608 

06 8702 8718 8728 8734 8743 8771 87738 8804 

SEARCH= 000131 18758 4132 4145 

SEC.0S 001272 ieee aia 6266% 6309% 6358% 6388% 6414% 6564% 6606% 7039% 9701 9704 9706 

SEC.RD 001266 19678 6563% 9704 

SEEK = 000105 18678 3786 3887 3922 4230 4318 4336 4416 44 34 4926 4931 6214 6215 

SEEKFG 034460 32908 32938 80078 8105 8331 

SEKCNT 001346 19888 3977 3979% 3988% 

SEKTPR 001344 1987@ 3917% 4005s 

SELORVs 000145 18848 

SERIAL §=O43403 362 93298 

SE TOUF 3897 4765 69488 

SETFOR= 000143 1883@ 3352 3354 3457 3786 3887 4926 4931 

SETVEC 005336 32228 

SET. 1— 042154 8134 8165 8274 8348 8553 8655 90928 

SKi_ #s 040000 18438 18538 

SLASH 043076 236 7513 92888 

SRCHUT 034432 79538 8301% 8406% 8784 
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CZR JAC. P11 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0197 
SRCHOO 026672 4112 4216 4 306 4404 65888 

SRTORVY 005572 3227 32708 

SRTINT 005304 3214 32168 

SRVCLK 024342 6076 6086 60918 

STACK = 001100 15148 3148 3330 3463 3499 3535 3543 3578 3582 3623 3645 3699 3743 


3791 3807 3810 3905 3943 4050 4125 4221 4311 4409 4516 4524 4529 
4532 4540 4547 4587 4596 4606 4623 4629 4740 4769 4775 4785 4847 


STALL 026366 3628 3634 3650 3656 4928 4933 6289 6332 6430 65118 
STALLO 001336 19858 3621% 3629 3635 3636% 3637 3639% 3651 3657 3658% 3659 36618 
STALL1 001354 19918 6290 6333 
STALL2 001356 1992 6431 
STALL3 001360 19938 49 4934 
T 004672 3136 31418 
START1 004636 1503 31348 
STARTZ 004660 1505 31398 3325 5417 5500 
STARTS 004626 1507 31328 
STARTS 004650 1 31378 
STATBL 004254 27888 5092 
STKLAT= 177774 15258 
sto 041030 8849 88708 
ST01 04 88 8922 8927 
ST02 1256 8878 88 8882 89148 
STO3 041326 8916 89288 
STOS 041352 8876 8925 89348 
STO06 041360 8918 89368 
ST07 041416 8920 B9I448 
STOo8 041446 8943 89508 
STOo9 041456 8913 8931 8933 8935 8941 8948 89528 
STRTMR 7056 4127 4225 4313 4411 66308 
STRTIA OO4E42 3133 31358 
STRT. 3138 31408 
ST.CLK 024076 3221 4176 4270 4369 4467 60438 
ST. LCL 608 
PCL O24244 6052 60738 
SVAOR 001340 19868 48613 4862% 4877 4878 4891 4892 
S¥RH11 042036 3932 4008 4139 4153 4168 4238 4262 4326 4344 4361 4424 4442 
8483 8500 8531 8632 8639 8679 8730 8748 8791 8827 8888 8951 
SVSTAT 001260 19638 5089 64702 
001140 19188 3146 31678 8 §=3169 3175% 3207 4761 4766 4772 4780 4782 4788 


5024 5031 5036 5040 5420 5459 5514% 5647 5665 5672 6375 6441 
6695 6932 6934 6938 7049 7108 7112 7201 
SWREG 000176 14878 8 §=6©3175 3207 5420 5459 5482 


SWO = 000001 15788 

SWOO = 000001 15688 1578 4780 

SW01 = 000002 15678 1577 4788 6934 7049 7112 
SW02 = 000004 15668 1576 4782 

SW03 = 000010 1565@ 1575 4763 4772 

SHO4 = 15648 1574 4763 4766 6375 

SHO5 = 000040 1563@ 1573 6074 6084 6938 

SW06 = 000100 15628 1572 4122 4178 6064 6695 
S407 = 000200 1561@ 1571 6209 7201 

swog = 000400 570 3291 5015 

Su09 = 001000 15598 1569 6932 7108 

SWi_ = 000002 15778 

SW10 = 002000 15588 





CZRJAC RPO4/5/6 MECHANICAL READ/WRITE TEST MACY11 30A(1052) 


CZR JAC. P11 27-JUL-78 09: 
SW11 = 004000 15578 
SW12 = 010000 15568 
SWi3 = 020000 15558 
SW14 = 040000 15548 
SwiS = 100000 15538 
SW2 = QO00004 15768 
SW3 = 000010 15758 
SW4u = 000020 15748 
SWS = 000040 15738 
SW6 = 000100 15728 
SW7 = 15718 
SW#8 = 000400 15708 
SH9 = 001000 156 
SYSTAT 043102 3231 
TAP = 040000 17588 
TBITVE= 000014 16118 
037444 8607 
2 17878 
TES 043361 356 
TESTO 3453 
TEST1 3487 
TESTIO 011126 3881 
TEST11 012164 4038 
TEST1Z2 012432 4123 
TEST1I3 013126 42218 
TESTI" 013572 43118 
TESTIS 014310 44098 
TEST16 014776 4510 
TEST17 015374 4581 
ST 7004 3525 
ST. 161 4710 
TEST21 016710 4830 
TEST22 017304 4919 
TESTS 007222 3568 
TESTS 007432 3608 
TESTS 010004 3688 
TEST6 010204 3731 
ST7 010462 3781 
TICKMS 001246 19588 
TICKUS 001250 19598 
TIMER 034462 39723 
TIM. ON 001314 19778 
TIM. PT 1332 9838 
TIM. UP 1276 19718 
TITLE 047714 3189 
TKVEC = 000060 16188 
TPB 001416 20098 
TPS 001414 20088 
TPVEC = 000064 16198 
TRAPVE=s 000034 16178 
TRC 001352 19908 
TRE s 040000 16358 
TRK.OS 001274 19708 
9706 
TRK.RO 001264 19668 


6330 


6573 


6428 


4004 


48598 


6091 


8343% 
B944% 


6675% 
6652 


4839 


6308% 
9738 





8486% 


6676% 
6701 


6123% 
6357% 


D 16 
27-JUL-78 09:24 PAGE 203 
CROSS REFERENCE TABLE -- USER SYMBOLS 


8532k 8619% 8712%  8756% 


6127% 
6387% 6413% 6565% 6605% 


8806% 


6924% 


8813% 


7038% 


8845 


9701 


SEQ 0198 


8847% 


9704 





Ei 
CZR.AC RPOY/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 27-J 
27-JUL-78 09: 18 


CZR IN. Pil 
TRK1_ = 004000 
TRK10 = 040000 
TRKZ2 = 010000 
K20 = 100000 
TRKY = 020000 
TRNSNT 034430 
TRTVEC= 000014 
TST 00 
TSTO 006354 
TST1 006516 
TST10 ©010720 
TSTIOR 011364 
TST108 011756 
TST11 12024 
TST12 012244 
TST13 013002 
TST14% 013446 
TST15 014164 
TST16 §=—6.014702 
TST17 015300 
TST2 74 
TSTZ20 015720 
TST21 016440 
TST22 017216 
| TST3 007112 
TST4 7 
TSTS 007674 
TST6 010074 
TST? 010340 
TUF = 000100 
TWOMS 026450 
TYPOS = 104405 


TYPE = 104401 


TYPERR 02 
TYPOC = 104402 
TYPON = 1044 
YPOS = 104403 
TYPTIMN 027 
T10 3014 
Ti1 
T12 00 
T7A 002774 
178 003004 
ULDFLG 034436 
UNLOAD= 000103 
UNS = 040000 


8261% 


7 346% 


57708 
4469 


B44 3% 


7481 
66948 


8506% 


8546% 


73728 


8538% 


74038 


8676 


86223 


8762 


6 | 
UL-78 09:24 PAGE 204 
OLS SEQ 0199 


CROSS REFERENCE TABLE -- USER SYMB 


8883 8898 89118 

3775 3875 4032 4098 

61078 7308% 7309% 7328% 
7415 

3248 3250 3252 3254 

3362 3377 3380 4948 

5103 5104 5108 5111 

5193 5290 5366 5414 

5529 5594 5598 5603 

6713 6717 6721 6722 

7203 7232 7236 7283 

7547 7550 7581 7588 

8764% 8780 8782% 8891x 





CZR JAC RPO4/S/6 MECHANICAL iy READ/WRITE TEST MACY11 30A(1052) 


CZR JAC. Pil 27-JUL-78 09: 
043122 92928 
UNTOFF 043130 3250 
UNTON 043141 3254 
UPE = 020000 16598 
US1 = 000001 16468 
US2 = 0900002 16478 
USY = 000004 16488 
UWR = 000010 18408 
VERIFY 026530 6284 
VUF 2 18358 
vVU30 = 010000 17948 
vv = 000100 16918 
WAO Os 2 18498 
WCE = 040000 16608 
WCEFLG 001334 19848 
MCF §©6©= 000040 17098 
WU == 000001 17828 
ME = 004000 17158 
WRCKD = 000151 18768 
WRCKHD= 000153 18778 
WRITE = 000161 18788 
WRL 8 = 004 16968 
WRTHD = 000163 18798 
WRT.AD 041734 9016% 
WRT. RP O41644 8192 
8455 
WRT.R1 041730 90278 
WRT.RZ2 042020 9013% 
WRT.R3 042026 9022 
WRT.RY 042032 9038 
WRT. RS 2034 9050 
WRT.WD 041732 90142 
mu fs 17908 
WSU os 17848 
SAUTOS 001134 19158 
SB80ARDR 001122 91 
OOAT 11 19128 
S$B8ELL 001210 19418 
HARC 5195% 
SCKSWR 021634 S4Se6 
MTAG 001100 18984 
$cmi_ == 000006 19308 
$CN2 = 000014 19308 
$cm3 = 000006 19288 
scm 6s 000003 19368 
SCNTLC 022546 5414 
SCNTLG 022560 5480 
SCNTLU 022553 5505 
SCRLF 001215 eee 
S$OB8LK 021326 §332 
$06 2D 23256 57 
SOECVL 023436 5816 
$0lV 023614 3801 
017626 4975 
SOTBL 021316 5335 


92938 
92958 


6327 


65548 


6410% 


4630 
4589 


8378 
8700 


90498 


9694 


16 
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4776 
4624 


8382 
8732 


9716 
5623 


3159 
19358 
19358 


5034 
7484 


CROSS REFERENCE TABLE -- USER SYMBOLS 


4879 4893 6371 
4770 4841 4863 


8390 8399 8403 
8769 90138 


19368 
19368 


5053 5084 5103 


6397 
6377 


8414 


5117 


8421 


5127 


8431 


5144 


SEQ 0200 


8445 


5151 


ES ae. ED 





G 16 
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Pil 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0201 
SENORD 017616 1495 49878 
SENOCT 017550 32988 3307 3317 49778 
SENULL 017632 4983 49948 
017366 3304 3347 4915 49478 6448 9976 
SEOPCT 017542 33178 49748 8 4978 99753 . 
SERFLG 001103 19018 §021% 5053 5637 5661 5663 5669% 5690 6425 6905 6936 7051 7110 
SERMAX 001115 19078 31608 33818 3456 34908 3528% 3571% 36118 36918 37342 37848 J3s8s4us 4OuIZ 
41078 42112 43012 4399% 4S5i3z 4584s 47138 4833R 49228 5663 56852 5690 
SGERROR 017636 3152 50138 
SERRPC 001116 19088 5028% 5029% 5030 5053 9688 9689 9692 9694 9696 9699 9700 9701 
9706 9711 9714 9718 9723 9725 9728 9732 9738 
SERRTB 004306 28158 5080 5081 
SERTTL 001112 1905@ 4966 4968% 5027% 5053 
SESCAP 001206 19408 31592 41198 4220% 4310% 4Y4Oss 5043 5045 5053 5684s 6225% 6232% 62562 


62638 62993 63063 6345% 6355% 6378% 6385% 6411% 6444% 65678 65728 65968 66032 
69253 69303 7041% 7047% 7094% 8653 8704 8708 8983 9043 9252 9261 9262% 


9264% 
SFILLC 001156 19268 5 5229 
SFILLS 001155 19258 5229 
001120 7032% 7097% 9709 
001124 19118 34x 4 =67099% 89709 
SGET42 017606 49848 
SGTSWR 021724 54818 5774 
SHD =6= 000000 143% 
SHINUM 023610 3156% 3796 3994 4836% 5904 5912 5917% 59228 7081 7087% 7090% 7134 7150 
SICNT 001104 19028 3219% 5676% 5677 5679% 5689 
SINTAG 001135 19168 5478% 5497 5517 5630 
SITEMB 001114 19068 50303 5 5073 
001216 i944e = 5 5229 5613 5623 
023612 31578 «8448372 «65 5910 5916% 59238 6515 7082 7086% 7089% 7133 7148 7149 
SLPADR 001106 1903 31618 34623 34988 3529% 3572% 3612% 3692% 3735% 790% 3885% “ONZE 41118 
42153 4305s 4Y4O3R 45152 “686k 4714K 4Y834x 4857% 4923% 5667% 5682% 5687 
SLPERR 001110 31623 86634538 0 = 3487% 0 = 3525% = 534k 4 8=03542k 4 =—568k = =603577% = 881k =6—963608k )=—36228 0 | SONNE 
6 36983) 38637318 486937428 )0«=—3781% «=603806k §8=60809K )§=6881k 863904" 8=893942k 4O38e 4104% 42088 
42988 «8643968 8445108 “523% 4YS28e 4Y531k 4539% 4S46e 4581e 4595k 4605k 4622% 4628% 
47108 4768S “774K 47B84R 4B3IOR YB4EX 4858 4867% 487K 488k 4Y8B7E 4B95R 4919% 
5042 5667 5683% 5689 6443 6575 
SLSTRAD 050370 3199 99213 99258 
GMAIL = 338533 U 3179 3207 5036 5182 5682 
SINE §=—6. 022576 5484 56288 
2565 5481 56268 
SMXCNT 023040 56898 
SNULL 001154 19248 5200 5229 
SNUTST= 000001 34368 8=—- 3438 34688 8 8=3470 3504%# 3506 35518 3553 35908 3592 36678 3669 37128 
3714 37628 3764 38388 3840 40178 4019 4O84# 4086 41898 4191 42778 4279 
43758 4377 44898 864491 45598 4561 46408 4642 47978 4799 49028 4904 
SOCNT 021106 52628 5291% 53048 
021110 52578 5261% 52 5269% 5280% 53068 
SOVER 5648 5678 56868 
1 4971% 4972% 4994 5674 5690 
SQUES 001214 19428 5053 5229 5535 5606 5623 
3512 3798 3993 58998 6514 7132 7147 
SROCHR 022176 55488 5777 
SROOEC= 823533 U 5779 
SROLIN 022266 55718 5778 
SROOCT= SE8ER% U 5779 










CZR JAC. P11 27-JUL-78 09: 18 


SREGi 0011 19318 5068s 
E 001166 19328 50693 
SREGS 001170 19338 
SREGY 001172 19348 50713 
E 1174 19358  5072% 
SRESRE 023100 57248 5780 
T 17630 49938 
GR2A = SE8EK3 U 5781 
SSAVRE 023042 57088 5779 
$SB82D 023222 57938 67 
SSCOPE 022610 56458 
SSETUP= 000147 31328 86314 
5047 5418 
$S1ZE 2 3198 99048 
SSTUP = 177777 31328 
SSUPRS 023452 58748 6709 
022776 5656 56818 
SSVPC = 200 14938 14 
SSWR = 167000 14268 1436 
3159 3161 
4108 4212 
4994 5 
5640 5641 
5689 
SSWRMK= 000000 5642 
STIMES 001204 19398  3158% 
4210 4%300% 
STKB 001146 19218 5379 
STKCNT 021336 3 SIME 
STKINT 021346 3203 53948 
STKQEN= 021346 53848 5449 
STKQIN 021340 53818  5395% 
STKQOU 021342 53828 5396% 
STKQSR 021344 53838 
STKS 601144 19208 5379 
STKSRY 021416 5397 54108 
sTmPO 86001176 19368  5064% 
9732 9738 
sTmPi 001 19378 
STMP2 001202 19388 
STN == 000023 14268 1436 
17 3519 
36128 3667 
3775 3784 
4084 4096 
4301 43028 
4573 4575 
48348 4902 
STNPUR 023366 5821 5822 
001152 19238 3184% 
STPFLG 001157 19278 5176 
1150 19228  3183% 
023136 54 57458 





9706 
96% 


9689 
9716 


CZRJAC RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 
CROSS REFERENCE TABLE -- 


9714 
9716 


16 
USE 


9723 


9725 


9728 


H 
27-JUL-78 09:24 PAGE 207 
R SYMBOLS 


9732 


9738 





5014 


9725 


34918 


SEQ 0202 


5039 





CZRJAC RPO4/S/6 incre ao — coctmeteanins * = MACY11 30A(1052) 


CZR JAC. Pil 


STRAPZ 
STRP = 


STRPAD 
STSTNM 


STTYIN 
STYPBN= 


023160 
000014 


023172 
001102 


022522 


57718 


5 
91568 


, 


57728 


16 
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57738 


35228 
82 


45783 
5681% 
56228 


i) 
oo 


5521 


14988 


91588 


REFERENCE TABLE -- USER SYMBOL 


5774 


57758 


5776 


57778 


36053 
4105 
48278 
6367 


5053 
58628 


57788 


3609 
42053 
4831 


50978 
74788 


57798 
36853 
4209 

49163 


SEQ 0203 


57808 


3689 
42953 
4920 


J 16 
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CZR JAC. Pil 27-JUL-78 09: 18 CROSS REFERENCE TABLE -- MACRO SEQ 0204 


CKCHR 31288 §©7239 7289 7516 7553 7593 7756 7769 7780 7831 

CKOIG 31288 87297 7535 

CKNUM 31288 =67247 7601 

COMMEN 18 16218 3 3420 4066 4475 

COPIND 31288 8§=63354 3457 3786 3886 4926 4931 

00 31288 83353 3355 3464 3465 3500 3501 3537 3545 3579 3584 3625 3631 3647 3653 
3701 3703 3747 3749 3751 3753 3755 3757 3808 3829 4051 4053 4927 4932 6571 

DODTA 31288 4526 4530 4535 4545 4552 4598 4609 4625 4631 4771 4777 4787 4848 4869 
4875 488 4 4897 

ORV. IN 31288 4173 4267 4366 4464 

ENOCOM # 16218 3413 3431 4079 4484 


6 6363 6364 6365 6366 6392 6393 6394 6395 6396 6418 6419 6420 6421 
6569 a he oth 6612 6613 6614 6926 6931 7042 7048 7106 7107 8654 8705 

ERRTYP 31288 5015 

ER.NOX 31288 62 6307 6356 6386 6412 66 

ESCAPE 1@ 16218 4119 4220 4310 4408 6232 6263 6306 6354 6385 6411 6567 6603 
6929 7 7046 709% 

GE TPR I 18 16218 5950 9910 

GE TSHR 18 14268 16218 3204 


MORE.S 31288 3445 3479 3517 3560 3600 3680 3723 3773 3873 4030 4096 4200 4290 


4502 4573 4702 4822 4911 

MSG 34368 = 3438 34688 863470 35048 3506 35518 3553 35908 3592 36678 3669 37128 3714 
3764 38378 3840 40178 4019 4O838# 4086 41898 4191 42778 4279 43758 4377 44898 
45596 4561 46408 4642 47978 84799 49028 4904 

MULT 1@ §©16218 

NEWTST 1#@ 16218 3436 3468 3504 3551 3590 3667 3712 3762 3838 4017 4084 4189 
4375 4489 4559 4640 4797 4902 

POP 18 16218 5361 5729 5918 6001 6146 6195 

1#@ 16218 5320 5709 5899 5953 6101 6159 
REPORT 1@ 16218 31288 4180 4183 4272 4371 4469 
RPO4. OD 2¢ 4867851 


SAV.RH 31288 4137 4151 4166 4236 4260 4324 4342 4359 4422 4440 4457 
SCOPE 15168 ae 3502 3549 3588 3665 3710 3760 3835 4015 4061 4186 4274 4373 


4557 46 4794 4898 4935 
SETPRI 18 16218 5551 
57608 5769 57 5771 5772 5774 5776 5777 5778 5779 5780 
SE TUP 18 16218 3142 
SET. TN 31288 3446 3480 3518 3561 3601 3681 3724 3774 3874 4031 4097 4201 4291 
503 4574 4703 4823 4912 
SKIP 18 §©16218 
vi 
STARS 1@ = §=61491 16218 1625 1667 1671 1862 1893 1945 3030 3436 S444 3468 3478 


4 tg 3551 3559 3590 3599 3667 3679 3712 3722 3762 3772 3838 3872 4017 





y 
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CZRJAC.P11  27-JUL-78 09: 18 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0206 
_$40CA 18 
1170 18 


. ABS. 050632 000 


ERRORS DETECTED: 0 


DSKZ: CZR JAC. BIN, OSKZ: CZR JAC. LST/CRF /SOL=DSKZ: CZ2R JAC. SML, DSKZ: CZ2RJAC. 010, DSKZ: CZRJAC. P11 
RUN-TIME: 27 37 3 SECONDS 

RUN-TIME RATIO: 315/768=4. 5 

CORE USED: 52K (103 PAGES) 


